Skip Menu |
 

This queue is for tickets about the Devel-TypeCheck CPAN distribution.

Report information
The Basics
Id: 34201
Status: new
Priority: 0/
Queue: Devel-TypeCheck

People
Owner: Nobody in particular
Requestors: CHORNY [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.2.2
Fixed in: (no value)



Subject: win32 fix for run-samples.t
use File::Spec->devnull() and 2>&1 patch and fixed file -- Alexandr Ciornii, http://chorny.net
Subject: run-samples.t.patch
Download run-samples.t.patch
text/x-diff 309b
--- run-samples.t.dist Mon Aug 29 08:03:44 2005 +++ run-samples.t Tue Mar 18 17:40:19 2008 @@ -29,7 +29,7 @@ diag $command; } else { - $command .= " > /dev/null 2&>1"; + $command .= ' > '.File::Spec->devnull().' 2>&1'; } my $exitval = system($command);
Subject: run-samples.t
Download run-samples.t
text/x-perl 822b
#!perl -w use warnings; use strict; use Test::More; use File::Spec; my @tests = qw( gelem-good.pl if-then-good.pl in-out-branch-bad.pl in-out-branch-good.pl int-then-string-bad.pl simple.pl transitive-bad.pl transitive-good.pl unify-glob-bad.pl unify-glob-good.pl ); plan tests => scalar @tests; for my $test ( sort @tests ) { my $filename = File::Spec->catdir( "t", "samples", $test ); my $command = "$^X -Mblib -MO=TypeCheck,-main $filename"; if ( $ENV{TEST_VERBOSE} ) { diag $command; } else { $command .= ' > '.File::Spec->devnull().' 2>&1'; } my $exitval = system($command); if ($test =~ /-bad\.pl$/) { isnt( $exitval, 0, "$test should fail" ); } else { is( $exitval, 0, "$test should pass" ); } }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.