t/pmc/null.t

   1 #! parrot
   2 # Copyright (C) 2006-2008, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/null.t - test Null PMC
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/null.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the Null PMC.
  16
  17 =cut
  18
  19 .sub main :main
  20     .include 'test_more.pir'
  21
  22     plan(3)
  23
  24     new $P0, ['Null']
  25     ok(1, 'Instantiated a Null PMC')
  26
  27     new $P1, ['Null']
  28     $I0 = issame $P0, $P1
  29     ok ($I0, 'Null is same as Null')
  30
  31     new $P2, ['Undef']
  32     $I0 = issame $P0, $P2
  33     nok($I0, 'Null is not same as not Undef')
  34 .end
  35
  36 # Local Variables:
  37 #   mode: pir
  38 #   fill-column: 100
  39 # End:
  40 # vim: expandtab shiftwidth=4 ft=pir: