#!@PERL@ -w # mknmz-wwwoffle # # mknmz-wwwoffle test script. # # test-mknmz-wwwoffle.pl # # # Copyright (C) 2000 WATANABE Yoshimasa # # This file is part of the mknmz-wwwoffle. # # This program is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by the Free # Software Foundation; either version 2 of the License, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful, but WITHOUT # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for # more details. # # You should have received a copy of the GNU General Public License along # with this program; if not, write to the Free Software Foundation, Inc., 59 # Temple Place, Suite 330, Boston, MA 02111-1307 USA # # # $Id: test-mknmz-wwwoffle.pl.in,v 1.4 2000/12/04 23:26:22 naney Exp $ # # use Test; use strict; BEGIN { plan tests => 1; } my $exit_status = 0; #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- # make test data #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- # check --version option #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= print STDERR 'checking mknmz-wwwoffle --version ... '; my $status = open(MKNMZWWWOFFLE, '@PERL@ -w ../mknmz-wwwoffle --version |'); unless ($status) { print STDERR 'Can not open program: '; $exit_status = 1; } if ($status) { my $line = ; if (index($line, '@VERSION@') < 0) { print STDERR 'Can not find version number: '; $exit_status = 1; $status = 0; } } ok($status); #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- # check --help option #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= print STDERR 'checking mknmz-wwwoffle --help ... '; $status = open(MKNMZWWWOFFLE, '@PERL@ -w ../mknmz-wwwoffle --help | '); unless ($status) { print STDERR 'Can not open program: '; $exit_status = 1; } if ($status) { # ... } ok($status); exit $exit_status;