diff options
Diffstat (limited to 'finance/p5-Finance-Quote/files/patch-t-bsero.t')
-rw-r--r-- | finance/p5-Finance-Quote/files/patch-t-bsero.t | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/finance/p5-Finance-Quote/files/patch-t-bsero.t b/finance/p5-Finance-Quote/files/patch-t-bsero.t new file mode 100644 index 000000000000..fd3edfcf3dfc --- /dev/null +++ b/finance/p5-Finance-Quote/files/patch-t-bsero.t @@ -0,0 +1,50 @@ +http://github.com/pfenwick/finance-quote/commit/7de984bea80e9c5e00504ededba6897183bb8c45 + +--- t/bsero.t.orig 1970-01-01 08:00:00.000000000 +0800 ++++ t/bsero.t 2010-02-13 18:25:22.000000000 +0800 +@@ -0,0 +1,45 @@ ++#!/usr/bin/perl -w ++use strict; ++use Test; ++use Data::Dumper; ++BEGIN {plan tests => 26}; ++ ++use Finance::Quote; ++ ++# Test BSERO functions. ++ ++my $q = Finance::Quote->new(); ++my @stocks = ("TLV", "BRD", "SNP"); ++ ++my %regexps = ( ++ TLV => qr/\bTLV\b/, ++ BRD => qr/\bBRD\b/, ++ SNP => qr/\bSNP\b/, ++); ++ ++ ++my %quotes = $q->fetch("bsero", @stocks); ++ok(%quotes); ++ ++foreach my $stock (@stocks) { ++ ++ my $name = $quotes{$stock, "name"}; ++ print "#Testing $stock: $name\n"; ++ ++ my $regexp = $regexps{$stock}; ++ ok($name =~ /$regexp/i); ++ ++ ok($quotes{$stock, "exchange"} eq 'Bucharest Stock Exchange'); ++ ok($quotes{$stock, "method"} eq 'bsero'); ++ ++ ok($quotes{$stock, "last"} > 0); ++ ok($quotes{$stock, "open"} =~ /^-?\d+\.\d+$/); ++ ok($quotes{$stock, "p_change"} =~ /^-?\d+\.\d+$/); ++ ok($quotes{$stock, "success"}); ++ ok($quotes{$stock, "volume"} >= 0); ++} ++ ++ ++# Check that a bogus stock returns no-success. ++%quotes = $q->fetch("tsx", "BOGUS"); ++ok(! $quotes{"BOGUS","success"}); |