examples/tutorial/90_writing_tests.pir

   1 # Copyright (C) 2007-2009, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 Writing Tests
   5
   6 This example demonstrates writing tests using the PIR version of Test::More.
   7 (Worth explaining a little of how ok, is, skip, and todo work.)
   8
   9 Also demonstrates exporting from one namespace to another (should be updated
  10 to use particle's Exporter).
  11
  12 =cut
  13
  14 .sub _main :main
  15     load_bytecode 'Test/More.pbc'
  16
  17     .local pmc exports, curr_namespace, test_namespace
  18     curr_namespace = get_namespace
  19     test_namespace = get_namespace [ 'Test'; 'More' ]
  20     exports = split " ", "plan ok is isa_ok skip todo"
  21     test_namespace.'export_to'(curr_namespace, exports)
  22
  23     plan( 4 )
  24
  25     ok(1, "first test")
  26
  27     $I0 = 2
  28     is($I0, 2, "second test")
  29
  30     skip(1, "skipped test")
  31
  32     todo(1, 42, "todo test")
  33
  34 .end
  35
  36 # Local Variables:
  37 #   mode: pir
  38 #   fill-column: 100
  39 # End:
  40 # vim: expandtab shiftwidth=4 ft=pir:
  41