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