1#!/usr/bin/perl -w 2use strict; 3use Test::More; 4use Finance::Quote; 5 6if (not $ENV{ONLINE_TEST}) { 7 plan skip_all => 'Set $ENV{ONLINE_TEST} to run this test'; 8} 9 10plan tests => 12; 11 12my $q = Finance::Quote->new(); 13my $year = (localtime())[5] + 1900; 14my $lastyear = $year - 1; 15 16my %quotes = $q->ftfunds("GB0031835118","GB0030880255","GB0003865176","GB00B7W6PR65","BOGUS"); 17ok(%quotes); 18 19# Check the last values are defined. These are the most 20# used and most reliable indicators of success. 21ok($quotes{"GB0031835118","last"} > 0); 22ok($quotes{"GB0031835118","success"}); 23 24ok($quotes{"GB00B7W6PR65","last"} > 0); 25ok($quotes{"GB00B7W6PR65","success"}); 26ok($quotes{"GB00B7W6PR65","currency"} eq "GBP", "Currency (GBP) for GB00B7W6PR65 is ".$quotes{"GB00B7W6PR65","currency"}); 27ok($quotes{"GB00B7W6PR65","price"}<100,"Price for GB00B7W6PR65 < 100 : ".$quotes{"GB00B7W6PR65","price"}); 28 29ok($quotes{"GB0030880255","last"} > 0); 30ok($quotes{"GB0030880255","success"}); 31 32ok($quotes{"GB0003865176","last"} > 0); 33ok($quotes{"GB0003865176","success"}); 34 35# Check that bogus stocks return failure: 36 37ok(! $quotes{"BOGUS","success"}); 38