From 734f4d28073c9012b9ee25c2cfa381dc439b2a68 Mon Sep 17 00:00:00 2001 From: =?utf8?q?J=C3=A9r=C3=B4me=20Quelin?= Date: Sun, 8 Jun 2008 10:52:29 +0200 Subject: [PATCH] moved some tests to respect order --- t/1-vector.t | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/t/1-vector.t b/t/1-vector.t index a1d2484..a485f08 100644 --- a/t/1-vector.t +++ b/t/1-vector.t @@ -182,7 +182,7 @@ my @expectations = ( [-1, -1, 1], [ 0, -1, 1], [ 1, -1, 1], [-1, 0, 1], [ 0, 0, 1], [ 1, 0, 1], [-1, 1, 1], [ 0, 1, 1], [ 1, 1, 1]); -for($v3 = $v1->copy(); scalar @expectations; $v3 = $v3->rasterize($v1, $v2)) { +for($v3 = $v1->copy; scalar @expectations; $v3 = $v3->rasterize($v1, $v2)) { my $expect = shift @expectations; $expect = Language::Befunge::Vector::XS->new(@$expect); is($v3, $expect, "next one is $expect"); @@ -191,6 +191,13 @@ for($v3 = $v1->copy(); scalar @expectations; $v3 = $v3->rasterize($v1, $v2)) { is($v3, undef, "rasterize returns undef at end of loop"); +# _xs_rasterize_ptr +my $ptr = Language::Befunge::Vector::XS::_xs_rasterize_ptr(); +ok(defined($ptr), "rasterize pointer is defined"); +is(length($ptr), $Config{ptrsize}, "rasterize pointer is the right size"); + + + #- math ops # addition @@ -298,7 +305,4 @@ SKIP: { } -# _xs_rasterize_ptr -my $ptr = Language::Befunge::Vector::XS::_xs_rasterize_ptr(); -ok(defined($ptr), "rasterize pointer is defined"); -is(length($ptr), $Config{ptrsize}, "rasterize pointer is the right size"); + -- 2.11.4.GIT