Move History

Fork Selected
  • Code 
    USING: ;
IN: foo

: bla ( -- ) 3 ;
     Test Cases Failed 
    USING: kernel foo tools.testest prettyprint assocs compiler.errors namespaces sequences tools.errors ;
IN: foo.tests

: run-tests ( -- )
  compiler-errors get values [
  "Example" describe#{
    "test case" it#{
      <{ bla ->  1 }>
    }#
  }#
  ] [ errors. ] if-empty
;

MAIN: run-tests
    View Run Output