/trunk/t/metar.t |
---|
1,8 → 1,7 |
#!/usr/bin/perl |
# |
# $Id: metar.t,v 1.1 2007/11/13 21:19:27 koos Exp $ |
# |
# Test script for METAR installation. |
# Test script for ModMETAR installation. |
use strict; |
use Test; |
13,13 → 12,13 |
my %tally = (passed => 0, failed => 0, skipped => 0); |
print "Testing METAR.\n"; |
print "Testing ModMETAR.\n"; |
my $m = new Geo::ModMETAR; |
# Create a new instance. |
if (ref $m eq 'Mod::Geo::METAR') { |
if (ref $m eq 'Geo::ModMETAR') { |
ok(1); |
} else { |
ok(0); |