#!/usr/local/bin/perl
use strict;
use warnings;
use Test::More;
use Method::Signatures;
use Finance::YahooQuote;

Given qr/a usable (\S+) class/, func ($c) { 
    use_ok( $1 ); 
};

When qr/retrieving the quote for ticker symbol "(.*)"/, func($c) {
    my( $symbol, $name, $quote ) = getonequote( $1 );
    $c->stash->{scenario}->{quote} = $quote;
    ok $quote, "got quote";
};

Then qr/the numeric value is greater than (.+)/, func ($c) {
   my $val = $1;
   if( $c->stash->{scenario}->{quote} !~ /^[\d.]+$/ ) {
       my $quote = $c->stash->{scenario}->{quote};
       fail "invalid quote value: $quote";
   }
   ok $c->stash->{scenario}->{quote} > $val, "val > $val";
};