basis/debugger/debugger-tests.factor

   1 USING: accessors alien.syntax continuations debugger kernel
   2 kernel.private literals namespaces tools.test ;
   3 IN: debugger.tests
   4
   5 { } [ [ drop ] [ error. ] recover ] unit-test
   6
   7 { f } [ { } vm-error? ] unit-test
   8 { f } [ { "A" "B" } vm-error? ] unit-test
   9
  10 { } [
  11     T{ test-failure
  12        { error
  13          {
  14              $[ KERNEL-ERROR ]
  15              10
  16              {
  17                  B{
  18                      88 73 110 112 117 116 69 110 97 98 108 101 0
  19                  }
  20                  B{
  21                      88 73 110 112 117 116 69 110 97 98 108 101
  22                      64 56 0
  23                  }
  24                  B{
  25                      95 88 73 110 112 117 116 69 110 97 98 108
  26                      101 64 56 0
  27                  }
  28                  B{
  29                      64 88 73 110 112 117 116 69 110 97 98 108
  30                      101 64 56 0
  31                  }
  32              }
  33              DLL" xinput1_3.dll"
  34          }
  35        }
  36        { asset { "Unit Test" [ ] [ dup ] } }
  37        { path "resource:basis/game/input/input-tests.factor" }
  38        { line# 6 }
  39        { continuation $[ current-continuation ] }
  40     } error.
  41 ] unit-test
  42
  43 { "foo" { 1 2 3 "foo" } } [
  44     [ 1 2 3 "foo" throw ] [ ] recover error-continuation get data>>
  45 ] unit-test