Хранилища Subversion geo-modmetar

(root)/trunk/t/metar.t - Редакция 3 → 4



#!/usr/bin/perl
#
 
#
# Test script for ModMETAR installation.

use strict;
use Test;

BEGIN { plan tests => 6 }

use Geo::ModMETAR;

my %tally = (passed => 0, failed => 0, skipped => 0);

print "Testing ModMETAR.\n";

my $m = new Geo::ModMETAR;

# Create a new instance.

if (ref $m eq 'Geo::ModMETAR') {
    ok(1);
} else {
    ok(0);
}


Редакция 3	Редакция 4
Строка 1...	Строка 1...
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2	#	2	#
3	# $Id: metar.t,v 1.1 2007/11/13 21:19:27 koos Exp $	-
4	#	3	#
5	# Test script for METAR installation.	4	# Test script for ModMETAR installation.
6		5
7	use strict;	6	use strict;
8	use Test;	7	use Test;
9		8
10	BEGIN { plan tests => 6 }	9	BEGIN { plan tests => 6 }
11		10
12	use Geo::ModMETAR;	11	use Geo::ModMETAR;
13		12
14	my %tally = (passed => 0, failed => 0, skipped => 0);	13	my %tally = (passed => 0, failed => 0, skipped => 0);
15		14
16	print "Testing METAR.\n";	15	print "Testing ModMETAR.\n";
17		16
18	my $m = new Geo::ModMETAR;	17	my $m = new Geo::ModMETAR;
19		18
20	# Create a new instance.	19	# Create a new instance.
21		20
22	if (ref $m eq 'Mod::Geo::METAR') {	21	if (ref $m eq 'Geo::ModMETAR') {
23	ok(1);	22	ok(1);
24	} else {	23	} else {
25	ok(0);	24	ok(0);
26	}	25	}
27		26