72 lines
4.5 KiB
Nu
72 lines
4.5 KiB
Nu
#!/usr/bin/env nu
|
|
# Compare SSH clone, fetch, and push contents and refs with native Git.
|
|
use std/assert
|
|
def wasi [component: path, root: path, args: list] {
|
|
let ready = (open ($root | path join ready.json))
|
|
let result = (^wasmtime run -S inherit-network -S allow-ip-name-lookup -S http -S cli-exit-with-code=y --dir $'($root)/guest::/' --env HOME=/home --env $'SAUSAGE_HOST_API=http://127.0.0.1:($ready.api)' --env GIT_AUTHOR_NAME=Agent --env GIT_AUTHOR_EMAIL=agent@example.test --env GIT_COMMITTER_NAME=Agent --env GIT_COMMITTER_EMAIL=agent@example.test $component ...$args | complete)
|
|
if $result.exit_code != 0 {error make {msg: ($result | to json)}}
|
|
$result
|
|
}
|
|
def native [args: list] {
|
|
let result = (^git ...$args | complete)
|
|
if $result.exit_code != 0 {error make {msg: ($result | to json)}}
|
|
$result
|
|
}
|
|
def main [component: path, ssh_component: path, root: path] {
|
|
let component = ($component | path expand)
|
|
let ssh_component = ($ssh_component | path expand)
|
|
let root = ($root | path expand)
|
|
let ready = (open ($root | path join ready.json))
|
|
let wit = (^wasm-tools component wit $component | complete)
|
|
assert equal $wit.exit_code 0
|
|
let imports = ($wit.stdout | lines | str trim | where {|line| $line | str starts-with 'import '})
|
|
assert (not ($imports | is-empty))
|
|
assert ($imports | all {|line| $line | str starts-with 'import wasi:'})
|
|
print 'Git component imports: PASS (WASI only)'
|
|
print ($imports | str join (char newline))
|
|
wasi $ssh_component $root [-o StrictHostKeyChecking=accept-new -p $ready.ssh $'($ready.user)@127.0.0.1' true] | ignore
|
|
let seed = ($root | path join host/seed)
|
|
let bare = ($root | path join host/bare.git)
|
|
let clone = ($root | path join guest/clone)
|
|
let comparison = ($root | path join host/native-clone)
|
|
native [init -b main $seed] | ignore
|
|
native [-C $seed config user.name Agent] | ignore
|
|
native [-C $seed config user.email agent@example.test] | ignore
|
|
$"base\n" | save ($seed | path join file.txt)
|
|
native [-C $seed add .] | ignore
|
|
native [-C $seed commit --no-gpg-sign -m base] | ignore
|
|
native [clone --bare $seed $bare] | ignore
|
|
let url = $'ssh://($ready.user)@127.0.0.1:($ready.ssh)($bare)'
|
|
let ssh_command = $"ssh -F /dev/null -o IdentityAgent=none -o BatchMode=yes -i '($root)/host/client_key' -p ($ready.ssh) -o IdentitiesOnly=yes -o StrictHostKeyChecking=accept-new -o UserKnownHostsFile='($root)/host/native_known_hosts'"
|
|
with-env {GIT_SSH_COMMAND: $ssh_command} {
|
|
native [clone $url $comparison] | ignore
|
|
wasi $component $root [clone $url /clone] | ignore
|
|
assert equal (open --raw ($clone | path join file.txt)) (open --raw ($comparison | path join file.txt))
|
|
assert equal (native [-C $clone show-ref] | get stdout) (native [-C $comparison show-ref] | get stdout)
|
|
print 'SSH clone: contents and refs match native Git: PASS'
|
|
$"fetch\n" | save --force ($seed | path join file.txt)
|
|
native [-C $seed commit --no-gpg-sign -am fetch] | ignore
|
|
native [-C $seed push $bare main] | ignore
|
|
native [-C $comparison fetch] | ignore
|
|
wasi $component $root [-C /clone fetch] | ignore
|
|
assert equal (native [-C $clone show-ref] | get stdout) (native [-C $comparison show-ref] | get stdout)
|
|
assert equal (native [-C $clone show origin/main:file.txt] | get stdout) $"fetch\n"
|
|
print 'SSH fetch: contents and refs match native Git: PASS'
|
|
wasi $component $root [-C /clone config user.name Agent] | ignore
|
|
wasi $component $root [-C /clone config user.email agent@example.test] | ignore
|
|
$"pushed\n" | save ($clone | path join pushed.txt)
|
|
wasi $component $root [-C /clone add pushed.txt] | ignore
|
|
wasi $component $root [-C /clone commit -m pushed] | ignore
|
|
wasi $component $root [-C /clone push origin HEAD:wasi] | ignore
|
|
native [-C $comparison fetch] | ignore
|
|
assert equal (native [-C $bare rev-parse wasi] | get stdout) (native [-C $clone rev-parse HEAD] | get stdout)
|
|
assert equal (native [-C $comparison show origin/wasi:pushed.txt] | get stdout) $"pushed\n"
|
|
print 'SSH push: remote contents and refs match native Git: PASS'
|
|
let scp = $'($ready.user)@127.0.0.1:($bare)'
|
|
wasi $component $root [-C /clone remote add scp $scp] | ignore
|
|
assert equal (wasi $component $root [-C /clone remote get-url scp] | get stdout | str trim) $scp
|
|
print 'SCP-style remote URL: PASS'
|
|
}
|
|
print $'Fixture: ($root)'
|
|
}
|