basis/debugger/debugger-tests.factor

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