t/library/distutils.t

   1 #!./parrot
   2 # Copyright (C) 2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/library/distutils.t
   8
   9 =head1 DESCRIPTION
  10
  11 Test the distutils library
  12
  13 =head1 SYNOPSIS
  14
  15     % prove t/library/distutils.t
  16
  17 =cut
  18
  19 .sub 'main' :main
  20     load_bytecode 'distutils.pir'
  21
  22     .const 'Sub' prebuild = 'prebuild'
  23     register_step_before('build', prebuild)
  24     .const 'Sub' postbuild = 'postbuild'
  25     register_step_after('build', postbuild)
  26
  27     $P0 = split ' ', 'build'
  28     $P1 = new 'Hash'
  29     .const 'Sub' build_hll = 'build_hll'
  30     $P1['hll_hook'] = build_hll
  31
  32     say "1..4"
  33     setup($P0 :flat, $P1 :flat :named)
  34     say "ok 4 - end"
  35 .end
  36
  37 .sub 'prebuild' :anon
  38     .param pmc kv :slurpy :named
  39     say "ok 1 - prebuild"
  40 .end
  41
  42 .sub 'build_hll' :anon
  43     .param pmc kv :slurpy :named
  44     say "ok 2 - build_hll"
  45 .end
  46
  47 .sub 'postbuild' :anon
  48     .param pmc kv :slurpy :named
  49     say "ok 3 - postbuild"
  50 .end
  51
  52 # Local Variables:
  53 #   mode: pir
  54 #   fill-column: 100
  55 # End:
  56 # vim: expandtab shiftwidth=4 ft=pir: