#!/usr/local/bin/perl -w
## xrt2d.t is a test script for the graphing package Graph.pm
##
## $Id: xrt2d.t,v 1.9 2001/10/24 18:41:09 elagache Exp $ $name$
##
## This software product is developed by Michael Young and David Moore,
## and copyrighted(C) 1998 by the University of California, San Diego
## (UCSD), with all rights reserved. UCSD administers the CAIDA grant,
## NCR-9711092, under which part of this code was developed.
##
## There is no charge for this software. You can redistribute it and/or
## modify it under the terms of the GNU General Public License, v. 2 dated
## June 1991 which is incorporated by reference herein. This software is
## distributed WITHOUT ANY WARRANTY, IMPLIED OR EXPRESS, OF MERCHANTABILITY
## OR FITNESS FOR A PARTICULAR PURPOSE or that the use of it will not
## infringe on any third party's intellectual property rights.
##
## You should have received a copy of the GNU GPL along with this program.
##
## Contact: graph-request@caida.org
##
use t::Config;
use lib ".";
use Chart::Graph qw(xrt2d);
use strict;
use File::Basename;
$Chart::Graph::save_tmpfiles = 0;
$Chart::Graph::debug = 0;
$Chart::Graph::xrt = $t::Config::xrt2d;
$Chart::Graph::xvfb = $t::Config::xvfb;
$Chart::Graph::Xrt2d::xvfb = $t::Config::xvfb;
$Chart::Graph::Xrt2d::xrt = $t::Config::xrt2d;
# assign $PNAME to the actual program name
# $script_path is the path to the directory the script is in
use vars qw($script_name $script_path $script_suffix $PNAME);
($script_name, $script_path, $script_suffix) = fileparse($0, ".pl");
$PNAME = "$script_name$script_suffix";
#
#
# test script for the xrt2d package
#
#
print "1..2\n";
my @drivers = @t::Config::drivers;
my $test_xrt2d = 0;
for (@drivers) {
if ($_ eq "xrt2d") {
$test_xrt2d = 1;
}
}
if ($test_xrt2d) {
if ( xrt2d({"output file" => "test_results/xrt2d-1.jpg",
"output type" => "jpg",
"set labels"=> ["Joe's", "Ralph's"],
"invert" => 1,
"point labels" => ["Jan/Feb", "Mar/Apr", "May/Jun", "Jul/Aug",
"Sep/Oct", "Nov/Dec"],
"x-axis title" => "Month's tracked",
"y-axis title" => "Stock prices for Rival restaurant chains"
},
[{"color" => "MistyRose"}, ["8", "13", "20", "45", "50", "100"]],
[{"color" => "#000000"}, ["75", "50", "25", "25", "50", "75"]]
)
) {
print "ok\n";
} else {
print "not ok\n";
}
} else {
print "ok # skip Not available on this platform\n";
}
if ($test_xrt2d) {
if ( xrt2d({"output file" => "test_results/xrt2d-2.gif",
"output type" => "gif",
"set labels" => ["set1", "set2", "set3", "set4"],
"point labels" => ["point1", "point2", "point3"]},
# Each entry here corresponds to a set
[{"color" => "MistyRose"}, ["15", "23", "10"]],
[{"color" => "#0000FF"}, ["13", "35", "45"]],
[{"color" => "#00FF00"}, ["15", "64", "24"]],
[{"color" => "Navy"}, ["18", "48", "32"]],
)
) {
print "ok\n";
} else {
print "not ok\n";
}
} else {
print "ok # skip Not available on this platform\n";
}