% which perl
/usr/bin/perl
[download]

Here is the the setup and main routine of the test:

use strict;
use warnings;

use Data::Dumper;
use Test::More tests => 47;


BEGIN { 
    use_ok ( 'PDL' );
    use_ok ( 'Chart::Scientific' );
};


main ();

sub main { 
    make_test_images ();
    my @ref_data  = get_reference_data ();
    my @test_data = get_test_data ();

    die "uneven data: ", scalar  @ref_data, " reference images, ",
                         scalar @test_data, " test images"
        if scalar @ref_data != scalar @test_data;

    foreach ( 0 .. scalar @ref_data - 1 ) {
        is ( $ref_data[$_]{data},
             $test_data[$_]{data},
             "$ref_data[$_]{name} matches $test_data[$_]{name}"
        );
        unlink $test_data[$_]{name}
            or warn "can't delete $test_data[$_]{name}";
    }
}
[download]