t/pmc/parrotthread.t

   1 #! parrot
   2 # Copyright (C) 2006-2007, The Perl Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/parrotthread.t - test the ParrotThread PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/parrotthread.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the ParrotThread PMC.
  16
  17 =cut
  18
  19 .sub main :main
  20     # load this library
  21     load_bytecode 'library/Test/More.pir'
  22
  23     # get the testing functions
  24     .local pmc exports, curr_namespace, test_namespace
  25     curr_namespace = get_namespace
  26     test_namespace = get_namespace [ "Test::More" ]
  27     exports = split " ", "plan diag ok is is_deeply like isa_ok"
  28
  29     test_namespace."export_to"(curr_namespace, exports)
  30
  31     plan(1)
  32
  33     new P0, .ParrotThread
  34     ok(1, 'Instantiated .ParrotThread')
  35 .end
  36
  37 # Local Variables:
  38 #   mode: cperl
  39 #   cperl-indent-level: 4
  40 #   fill-column: 100
  41 # End:
  42 # vim: expandtab shiftwidth=4: