extra/benchmark/benchmark-tests.factor

   1 USING: benchmark kernel sequences tools.test ;
   2 IN: benchmark.tests
   3
   4 : dummy-benchmark ( -- )
   5     ;
   6
   7 MAIN: dummy-benchmark
   8
   9 { "benchmark.tests" } [
  10     { "benchmark.tests" } [ run-timing-benchmark ] run-benchmarks
  11     drop first first
  12 ] unit-test
  13
  14 { 0 1 } [
  15     { "benchmark.tests" } [ drop "hello" throw ] run-benchmarks
  16     2length
  17 ] unit-test