Author: coke
Date: Thu Mar 29 14:24:05 2007
New Revision: 17848
Removed:
trunk/t/op/random.t
Modified:
trunk/ (props changed)
trunk/MANIFEST
trunk/t/pmc/random.t
Log:
[t] the op test here was a duplicate of the pmc test. delete the op test,
make the pmc test PIR.
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Thu Mar 29 14:24:05 2007
@@ -2834,7 +2834,6 @@
t/op/load_bytecode.t []
t/op/number.t []
t/op/pushaction.t []
-t/op/random.t []
t/op/spawnw.t []
t/op/sprintf.t []
t/op/sprintf_tests []
Modified: trunk/t/pmc/random.t
==============================================================================
--- trunk/t/pmc/random.t (original)
+++ trunk/t/pmc/random.t Thu Mar 29 14:24:05 2007
@@ -1,36 +1,39 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#!parrot
+# Copyright (C) 2001-2005, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
-t/pmc/random.t - test the Random PMC
-
+t/pmc/random.t - Random numbers
=head1 SYNOPSIS
- % prove t/pmc/random.t
+ % prove t/pmc/random.t
=head1 DESCRIPTION
-Tests the Random PMC.
+Tests random number generation
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .Random
- print "ok 1\n"
+ set I0, P0
+ ok(1, 'Called random just fine')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
