Lines Matching refs:quotes
21 my %quotes = $q->fetch( "yahoo_json", @stocks );
22 ok( %quotes, "Data returned" );
26 my $name = $quotes{ $stock, "name" };
27 ok( $quotes{ $stock, "success" }, "Retrieved $stock" );
28 if ( !$quotes{ $stock, "success" } ) {
29 my $errmsg = $quotes{ $stock, "errormsg" };
34 my $exchange = $quotes{ $stock, "exchange" };
38 my $fetch_method = $quotes{ $stock, "method" };
41 my $last = $quotes{ $stock, "last" };
44 my $volume = $quotes{ $stock, "volume" };
47 my $type = $quotes{ $stock, "type" };
51 my $isodate = $quotes{ $stock, "isodate" };
54 my $date = $quotes{ $stock, "date" };
57 …ok( $quotes { $stock, "currency" } eq 'INR', 'Bombay stocks have currency INR' ) if $stock =~ /\.B…
58 …ok( $quotes { $stock, "currency" } eq 'EUR', 'Barcelona stocks have currency EUR' ) if $stock =~ /…
59 …ok( $quotes { $stock, "currency" } eq 'EUR', 'Madrid stocks have currency EUR' ) if $stock =~ /\.M…
62 …ok( $quotes { $stock, "currency" } eq 'ZAR', 'Johannesburg stocks have currency ZAR' ) if $stock =…
69 %quotes = $q->fetch( "yahoo_json", "BOGUS" );
70 ok( !$quotes{ "BOGUS", "success" }, "BOGUS failed" );