t/pir/registernames.t

   1 #! parrot
   2 # Copyright (C) 2009, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pir/registernames.t - Tests for PIR register variable names
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pir/registernames.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests for register variable names in PIR.
  16
  17 =cut
  18
  19 .sub 'main' :main
  20     .include 'test_more.pir'
  21     plan(1)
  22     test_I01_is_not_I1()
  23 .end
  24
  25 .sub test_I01_is_not_I1
  26     $I1  = 1
  27     $I01 = 2
  28     isnt($I1,$I01, 'Register variables "$I1" and "$I01" are not the same variable')
  29 .end
  30
  31 # Local Variables:
  32 #   mode: pir
  33 #   fill-column: 100
  34 # End:
  35 # vim: expandtab shiftwidth=4 ft=pir:
  36