Diff of /t/plplot.t [52a83c] .. [cbb2ce]  Maximize  Restore

Switch to unified view

a/t/plplot.t b/t/plplot.t
...
...
425
                YLAB => ['x**2', 'sqrt(x)', 'x**3', 'sin(x/20*2pi)'],
425
                YLAB => ['x**2', 'sqrt(x)', 'x**3', 'sin(x/20*2pi)'],
426
                         COLOR => ['GREEN', 'DEEPSKYBLUE', 'DARKORCHID1', 'DEEPPINK'], XLAB => 'X label');
426
                         COLOR => ['GREEN', 'DEEPSKYBLUE', 'DARKORCHID1', 'DEEPPINK'], XLAB => 'X label');
427
$pl->close;
427
$pl->close;
428
ok (-s "test26.$dev" > 0, "Multi-color stripplots");
428
ok (-s "test26.$dev" > 0, "Multi-color stripplots");
429
429
430
$pl = PDL::Graphics::PLplot->new(DEV => $dev, FILE => "test27.$dev");
431
$x1 = sequence(20);
432
$y1 = $x1**2 + 4;
433
$y2 = -$x1**2 + 4;
434
$pl->stripplots($x1, [$y1, $y2],
435
                PLOTTYPE => 'LINE', TITLE => 'functions',
436
                YLAB => ['x**2', '-x**2'],
437
                         COLOR => ['GREEN', 'DEEPSKYBLUE'], XLAB => 'X label');
438
$pl->close;
439
ok (-s "test27.$dev" > 0, "Stripplots with only one x argument");
440
441
430
# test opening/closing of more than 100 streams (100 is the max number of plplot streams, close should
442
# test opening/closing of more than 100 streams (100 is the max number of plplot streams, close should
431
# reuse plplot stream numbers).
443
# reuse plplot stream numbers).
432
my $count = 0;
444
my $count = 0;
433
for my $i (1 .. 120) {
445
for my $i (1 .. 120) {
434
  my $pltfile = "test27.$dev";
446
  my $pltfile = "test28.$dev";
435
  my $win = PDL::Graphics::PLplot->new(DEV => $dev, FILE => $pltfile, PAGESIZE => [300, 300]);
447
  my $win = PDL::Graphics::PLplot->new(DEV => $dev, FILE => $pltfile, PAGESIZE => [300, 300]);
436
  $win->xyplot(pdl(0,1), pdl(0,1));
448
  $win->xyplot(pdl(0,1), pdl(0,1));
437
  # print "Stream = ", plgstrm(), " Stream in object = ", $win->{STREAMNUMBER}, "\n";
449
  # print "Stream = ", plgstrm(), " Stream in object = ", $win->{STREAMNUMBER}, "\n";
438
  $win->close();
450
  $win->close();
439
  if (-s $pltfile > 0) { $count++; unlink $pltfile }
451
  if (-s $pltfile > 0) { $count++; unlink $pltfile }