File: Use.t

package info (click to toggle)
libfinance-quote-perl 1.08-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 360 kB
  • ctags: 120
  • sloc: perl: 2,120; makefile: 47
file content (16 lines) | stat: -rwxr-xr-x 351 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl -w

# Test to see if Finance::Quote can at least be loaded and used.
# This file gets a capital name so it will be run before any other
# test.

use strict;
use Test;
BEGIN {plan tests => 2};

use Finance::Quote;
ok(1);			# Yup.  It loaded okay.  Good.  :)

my $quote = Finance::Quote->new();

ok($quote);	# Did we get an object okay?