← Back to branch summary

~ubuntu-branches/ubuntu/raring/libchart-gnuplot-perl/raring

« back to all changes in this revision

Viewing changes to t/border.t

  • Committer: Bazaar Package Importer
  • Author(s): gregor herrmann, Ansgar Burchardt, Salvatore Bonaccorso, gregor herrmann
  • Date: 2011-09-17 18:17:44 UTC
  • mfrom: (1.2.4 upstream) (3.1.7 sid)
  • Revision ID: james.westby@ubuntu.com-20110917181744-rx1p4pcav89anno1
Tags: 0.17-1
[ Ansgar Burchardt ]
* debian/control: Convert Vcs-* fields to Git.

[ Salvatore Bonaccorso ]
* debian/copyright: Replace DEP5 Format-Specification URL from
  svn.debian.org to anonscm.debian.org URL.

[ gregor herrmann ]
* New upstream release.
* Bump debhelper compatibility level to 8.
* Add /me to Uploaders.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/border.t
1
1
#!/usr/bin/perl -w
2
2
use strict;
3
 
use Test::More (tests => 1);
 
3
use Test::More (tests => 2);
4
4
 
5
5
BEGIN {use Chart::Gnuplot;}
6
6
 
7
7
my $temp = "temp.ps";
8
8
 
9
 
# Test formatting the gridlines
 
9
# Test formatting the border
10
10
{
11
11
    my $c = Chart::Gnuplot->new(
12
12
        output => $temp,
21
21
    ok(&diff($c->{_script}, "border_1.gp") == 0);
22
22
}
23
23
 
 
24
# Test formatting the specified borders
 
25
{
 
26
    my $c = Chart::Gnuplot->new(
 
27
        output => $temp,
 
28
        border => {
 
29
            sides    => "left, bottom",
 
30
            linetype => 3,
 
31
            width    => 2,
 
32
            color    => '#ff00ff',
 
33
        },
 
34
    );
 
35
 
 
36
    $c->_setChart();
 
37
    ok(&diff($c->{_script}, "border_2.gp") == 0);
 
38
}
 
39
 
24
40
###################################################################
25
41
 
26
42
# Compare two files