basis/debugger/debugger-tests.factor

   1 USING: accessors alien.syntax continuations debugger kernel
   2 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     { file "resource:basis/game/input/input-tests.factor" }
  38     { line# 6 }
  39     { continuation f }
  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