t/pir/macro.t

   1 #!./parrot
   2 # Copyright (C) 2001-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pir/macro.t - Tests for macros in PIR
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pir/macro.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests for macros in PIR.
  16
  17 =cut
  18
  19 .macro foo()
  20     ok(1, 'basic macro')
  21 .endm
  22
  23 .macro bar(x)
  24     ok(.x, 'basic macro with argument')
  25 .endm
  26
  27 .macro_const PI_APPROX 4
  28
  29 .sub main :main
  30     .include 'test_more.pir'
  31     plan(3)
  32     .foo()
  33     .bar(42)
  34     is(.PI_APPROX, 4, '.macro_const')
  35 .end
  36
  37 # Local Variables:
  38 #   mode: pir
  39 #   fill-column: 100
  40 # End:
  41 # vim: expandtab shiftwidth=4 ft=pir:
  42