r20967 - in /trunk/libgeo-metar-perl/debian: changelog patches/various.patch

[tincho at users.alioth.debian.org]

Author: tincho
Date: Fri Jun 13 06:04:53 2008
New Revision: 20967

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=20967
Log:
Missing test patch

Modified:
    trunk/libgeo-metar-perl/debian/changelog
    trunk/libgeo-metar-perl/debian/patches/various.patch

Modified: trunk/libgeo-metar-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgeo-metar-perl/debian/changelog?rev=20967&op=diff
==============================================================================
--- trunk/libgeo-metar-perl/debian/changelog (original)
+++ trunk/libgeo-metar-perl/debian/changelog Fri Jun 13 06:04:53 2008
@@ -1,4 +1,4 @@
-libgeo-metar-perl (1.15-1) UNRELEASED; urgency=low
+libgeo-metar-perl (1.15-1) unstable; urgency=low
 
   TODO: debian/patches/series: disabled Timo's patch, need to review.
   TODO: also #304962 needs to be reviewed.
@@ -8,9 +8,10 @@
   * debian/copyright: updated CP info, plus new format.
   * debian/control: added myself to Uploaders, fixed case in short desc.
   * debian/patches: finally merged all the patches from #304962 and #262397
-    with the new upstream release! (Closes: #304962).
+    with the new upstream release! Also, sent the patches upstream as
+    CPAN#36708. (Closes: #304962).
 
- -- Martín Ferrari <martin.ferrari at gmail.com>  Sat, 05 Jan 2008 16:04:11 -0200
+ -- Martín Ferrari <tincho at debian.org>  Fri, 13 Jun 2008 02:42:42 -0300
 
 libgeo-metar-perl (1.14-6) UNRELEASED; urgency=low
 

Modified: trunk/libgeo-metar-perl/debian/patches/various.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgeo-metar-perl/debian/patches/various.patch?rev=20967&op=diff
==============================================================================
--- trunk/libgeo-metar-perl/debian/patches/various.patch (original)
+++ trunk/libgeo-metar-perl/debian/patches/various.patch Fri Jun 13 06:04:53 2008
@@ -26,3 +26,78 @@
  up-to-date METAR. Then, I scan thru the output, looking for what looks
  like a METAR string (that's not hard in Perl). Oh, EHSB can be any site
  location code where there is a reporting station.
+Index: libgeo-metar-perl/t/metar.t
+===================================================================
+--- libgeo-metar-perl.orig/t/metar.t
++++ libgeo-metar-perl/t/metar.t
+@@ -5,59 +5,19 @@
+ # Test script for METAR installation.
+ 
+ use strict;
+-use Test;
++use Test::More tests => 7;
+ 
+-BEGIN { plan tests => 6 }
++my $modname = "Geo::METAR";
++my $m;
+ 
+-use Geo::METAR;
+-
+-my %tally = (passed => 0, failed => 0, skipped => 0);
+-
+-print "Testing METAR.\n";
+-
+-my $m = new Geo::METAR;
+-
+-# Create a new instance.
+-
+-if (ref $m eq 'Geo::METAR') {
+-    ok(1);
+-} else {
+-    ok(0);
+-}
+-
+-##
+-## Try out one hard-coded example. We need many more of these.
+-##
+-
+-if ($m->metar("KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK 57014")) {
+-    ok(1);
+-} else {
+-    ok(0);
+-}
+-
+-if ($m->SITE eq "KFDY") {
+-    ok(1);
+-} else {
+-    ok(0);
+-}
+-
+-if ($m->DATE eq "25") {
+-    ok(1);
+-} else {
+-    ok(0);
+-}
+-
+-if ($m->MOD eq "AUTO") {
+-    ok(1);
+-} else {
+-    ok(0);
+-}
+-
+-if ($m->TEMP_F eq "39.2") {
+-    ok(1);
+-} else {
+-    ok(0);
+-}
++use_ok($modname);
++ok($m = $modname->new());
++ok(ref $m eq $modname);
++
++ok($m->metar("KFDY 251450Z 21012G21KT 8SM OVC065 04/M01 A3010 RMK 57014"));
++ok($m->SITE eq "KFDY");
++ok($m->DATE eq "25");
++ok($m->TEMP_F eq "39.2");
+ 
+ exit;
+