File: 05-data-dumper.t

package info (click to toggle)
libfinance-quote-perl 1.17%2Bgit20120506-1%2Bdeb7u1
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 1,244 kB
  • sloc: perl: 7,510; makefile: 10
file content (20 lines) | stat: -rwxr-xr-x 463 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl -w
use strict;
use Test::More;
use Finance::Quote;

if (not $ENV{TEST_AUTHOR}) {
    plan( skip_all => 'Author test.  Set $ENV{TEST_AUTHOR} to true to run.');
}

plan tests => 1;

# F::Q doesn't load all its code until we actually create
# an object.

my $fq = Finance::Quote->new;

# Sometimes Data::Dumper gets left in code by accident.  Make sure
# we haven't done so.

ok(! exists $INC{'Data/Dumper.pm'}, "Data::Dumper should not be loaded");