Lines Matching refs:quotes
16 my %quotes = $q->ftfunds("GB0031835118","GB0030880255","GB0003865176","GB00B7W6PR65","BOGUS");
17 ok(%quotes);
21 ok($quotes{"GB0031835118","last"} > 0);
22 ok($quotes{"GB0031835118","success"});
24 ok($quotes{"GB00B7W6PR65","last"} > 0);
25 ok($quotes{"GB00B7W6PR65","success"});
26 ok($quotes{"GB00B7W6PR65","currency"} eq "GBP", "Currency (GBP) for GB00B7W6PR65 is ".$quotes{"GB00…
27 ok($quotes{"GB00B7W6PR65","price"}<100,"Price for GB00B7W6PR65 < 100 : ".$quotes{"GB00B7W6PR65","pr…
29 ok($quotes{"GB0030880255","last"} > 0);
30 ok($quotes{"GB0030880255","success"});
32 ok($quotes{"GB0003865176","last"} > 0);
33 ok($quotes{"GB0003865176","success"});
37 ok(! $quotes{"BOGUS","success"});