Skip Menu |
 
rt.cpan.org will be shut down on March 1st, 2021.

This queue is for tickets about the PDL-Graphics-PLplot CPAN distribution.

Report information
The Basics
Id: 70706
Status: new
Priority: 0/
Queue: PDL-Graphics-PLplot

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

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



Subject: [Win32] Enable running of t/plplot_library_tests.t
Attached patch to t/plplot_library_tests.t allows the script to run on Windows. Cheers, Rob
Subject: tests-diff.txt
Download tests-diff.txt
text/plain 1.4k
--- t/plplot_library_tests.t_orig Sat Sep 3 15:10:20 2011 +++ t/plplot_library_tests.t Sat Sep 3 15:17:14 2011 @@ -10,6 +10,7 @@ use PDL::Config; use PDL::Graphics::PLplot; use Test::More; +use File::Spec; ######################### End of black magic. @@ -42,15 +43,27 @@ # Compile C version unlink ("a.out"); + if($^O =~ /MSWin32/i) { + my $cmd = $plversion->{'C_COMPILE'}; + my $cc = $Config::Config{'cc'}; + $cmd =~ s/\\/\//g; # Convert all backslashes to forward slashes + $cmd =~ s/\Q$cc\E/\Q$cc $c_code\E/; # Insert source file into the command + $cmd =~ s/\\//g; # Remove all backskashes + system("$cmd -o a.out"); + } + else { system "LD_RUN_PATH=\"$plversion->{'PLPLOT_LIB'}\" $plversion->{'C_COMPILE'} $c_code -o a.out"; + } ok ((($? == 0) && -s "a.out"), "$c_code compiled successfully"); # Run C version - system "a.out -dev svg -o x${num}c.svg -fam > /dev/null 2>&1"; + my $devnull = File::Spec->devnull(); + system "a.out -dev svg -o x${num}c.svg -fam > $devnull 2>&1"; ok ($? == 0, "C code $c_code ran successfully"); # Run perl version - system "$plplot_test_script -dev svg -o x${num}p.svg -fam > /dev/null 2>&1"; + my $perlrun = $^O =~ /MSWin32/i ? 'perl -Mblib' : ''; + system "$perlrun $plplot_test_script -dev svg -o x${num}p.svg -fam > $devnull 2>&1"; ok ($? == 0, "Script $plplot_test_script ran successfully"); my @output = glob ("x${num}p.svg*"); foreach my $outfile (@output) {


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.