<input type="text" name="symbol" id="symbol" size="5" maxlength="5" value="[% symbol %]" required="required" class="required" /> <span class="required">Required</span>
</li>
<li>
- <label for="isocode" class="required">ISO code: </label>
- <input type="text" name="isocode" id="isocode" size="5" maxlength="5" value="[% isocode %]" required="required" class="required" /> <span class="required">Required</span>
+ <label for="isocode">ISO code: </label>
+ <input type="text" name="isocode" id="isocode" size="5" maxlength="5" value="[% isocode %]" />
</li>
<li>
<span class="label">Last updated: </span>[% timestamp %]
{ string => '5.99 (7.75 CAN)', expected => '5.99' },
);
-plan tests => scalar @prices2test;
+plan tests => 2 * scalar @prices2test;
# set active currency test data
my $CURRENCY = 'TEST';
$dbh->do("INSERT INTO currency ( currency,symbol,isocode,rate,active )
VALUES ('$CURRENCY','$SYMBOL','$ISOCODE','$RATE',1)");
foreach my $price (@prices2test) {
- my $mungemarcprice=MungeMarcPrice($price->{'string'});
- my $expected=$price->{'expected'};
- ok ($mungemarcprice eq $expected, "must return $price->{'expected'} from initial string : $price->{'string'}");
+ is(
+ MungeMarcPrice($price->{'string'}),
+ $price->{'expected'},
+ "got expected price from $price->{'string'} (using currency.isocode)",
+ );
}
+
+# run tests again, but fall back to currency name
+$dbh->do('DELETE FROM aqbasket');
+$dbh->do('DELETE FROM currency');
+$dbh->do("INSERT INTO currency ( currency, symbol, rate, active )
+ VALUES ('$ISOCODE', '$SYMBOL', '$RATE', 1)");
+
+foreach my $price (@prices2test) {
+ is(
+ MungeMarcPrice($price->{'string'}),
+ $price->{'expected'},
+ "got expected price from $price->{'string'} (using ISO code as currency name)",
+ );
+}
+
# Cleanup
$dbh->rollback;