factor/basis/debugger/debugger-tests.factor

USING: accessors alien.syntax continuations debugger kernel
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 f }
} error.
] unit-test

{ "foo" { 1 2 3 "foo" } } [
    [ 1 2 3 "foo" throw ] [ ] recover error-continuation get data>>
] unit-test