t/op/literal.t

   1 #!./parrot
   2 # Copyright (C) 2001-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/op/literal.t - Testing the PIR lexer
   8
   9 =head1 SYNOPSIS
  10
  11         % prove t/op/literal.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the lexing of literal numbers.  Taken from from the 2nd
  16 aoudad book (page 127).
  17
  18 =cut
  19
  20 .sub main :main
  21     .include 'test_more.pir'
  22
  23     plan(4)
  24     test_integer_literals_in_pir()
  25 .end
  26
  27 .sub test_integer_literals_in_pir
  28     is( 0x2A, 42, 'Integer hex literals in PIR' )
  29     is( 0X2A, 42, 'Integer hex literals in PIR' )
  30     is( 0b101010, 42, 'Integer binary literals in PIR' )
  31     is( 0B101010, 42, 'Integer binary literals in PIR' )
  32 .end
  33
  34 # Local Variables:
  35 #   mode: pir
  36 #   fill-column: 100
  37 # End:
  38 # vim: expandtab shiftwidth=4 ft=pir: