[svn:parrot] r47097 - in trunk: . t/library

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri May 28 16:52:23 2010
New Revision: 47097
URL: https://trac.parrot.org/parrot/changeset/47097

Log:
[distutils] add test

Added:
   trunk/t/library/distutils.t   (contents, props changed)
Modified:
   trunk/MANIFEST

Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST	Fri May 28 16:11:22 2010	(r47096)
+++ trunk/MANIFEST	Fri May 28 16:52:23 2010	(r47097)
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Thu May 27 23:09:25 2010 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Fri May 28 16:50:30 2010 UT
 #
 # See below for documentation on the format of this file.
 #
@@ -1694,6 +1694,7 @@
 t/library/cgi_query_hash.t                                  [test]
 t/library/configure.t                                       [test]
 t/library/coroutine.t                                       [test]
+t/library/distutils.t                                       [test]
 t/library/dumper.t                                          [test]
 t/library/getopt_obj.t                                      [test]
 t/library/hllmacros.t                                       [test]

Added: trunk/t/library/distutils.t
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ trunk/t/library/distutils.t	Fri May 28 16:52:23 2010	(r47097)
@@ -0,0 +1,55 @@
+#!./parrot
+# Copyright (C) 2010, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+t/library/distutils.t
+
+=head1 DESCRIPTION
+
+Test the distutils library
+
+=head1 SYNOPSIS
+
+    % prove t/library/distutils.t
+
+=cut
+
+.sub 'main' :main
+    load_bytecode 'distutils.pir'
+
+    .const 'Sub' prebuild = 'prebuild'
+    register_step_before('build', prebuild)
+    .const 'Sub' postbuild = 'postbuild'
+    register_step_after('build', postbuild)
+
+    $P0 = split ' ', 'build'
+    $P1 = new 'Hash'
+    .const 'Sub' build_hll = 'build_hll'
+    $P1['hll_hook'] = build_hll
+
+    say "1..3"
+    setup($P0 :flat, $P1 :flat :named)
+.end
+
+.sub 'prebuild' :anon
+    .param pmc kv :slurpy :named
+    say "ok 1 - prebuild"
+.end
+
+.sub 'postbuild' :anon
+    .param pmc kv :slurpy :named
+    say "ok 3 - postbuild"
+.end
+
+.sub 'build_hll' :anon
+    .param pmc kv :slurpy :named
+    say "ok 2 - build_hll"
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir: