46 lines
1.2 KiB
Factor
46 lines
1.2 KiB
Factor
USING: accessors alien.syntax continuations debugger kernel
|
|
kernel.private literals namespaces tools.test ;
|
|
IN: debugger.tests
|
|
|
|
{ } [ [ drop ] [ error. ] recover ] unit-test
|
|
|
|
{ f } [ { } vm-error? ] unit-test
|
|
{ f } [ { "A" "B" } vm-error? ] unit-test
|
|
|
|
{ } [
|
|
T{ test-failure
|
|
{ error
|
|
{
|
|
$[ KERNEL-ERROR ]
|
|
10
|
|
{
|
|
B{
|
|
88 73 110 112 117 116 69 110 97 98 108 101 0
|
|
}
|
|
B{
|
|
88 73 110 112 117 116 69 110 97 98 108 101
|
|
64 56 0
|
|
}
|
|
B{
|
|
95 88 73 110 112 117 116 69 110 97 98 108
|
|
101 64 56 0
|
|
}
|
|
B{
|
|
64 88 73 110 112 117 116 69 110 97 98 108
|
|
101 64 56 0
|
|
}
|
|
}
|
|
DLL" xinput1_3.dll"
|
|
}
|
|
}
|
|
{ asset { "Unit Test" [ ] [ dup ] } }
|
|
{ path "resource:basis/game/input/input-tests.factor" }
|
|
{ line# 6 }
|
|
{ continuation $[ current-continuation ] }
|
|
} error.
|
|
] unit-test
|
|
|
|
{ "foo" { 1 2 3 "foo" } } [
|
|
[ 1 2 3 "foo" throw ] [ ] recover error-continuation get data>>
|
|
] unit-test
|