From f1ee95396defc991301ac758b71bdda9df82984e Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 2 Sep 2001 04:25:55 +0000 Subject: [PATCH] lame testsuite and the embarassing fixes in it found --- FS/FS.pm | 8 ++++++- FS/FS/cust_bill_pay.pm | 6 +++--- FS/FS/cust_main.pm | 6 +++--- FS/FS/cust_refund.pm | 4 ++-- FS/MANIFEST | 53 ++++++++++++++++++++++++++++++++++++++++------- FS/t/CGI.t | 5 +++++ FS/t/CGIwrapper.t | 5 +++++ FS/t/Conf.t | 5 +++++ FS/t/Record.t | 5 +++++ FS/t/UID.t | 5 +++++ FS/t/agent.t | 5 +++++ FS/t/agent_type.t | 5 +++++ FS/t/cust_bill.t | 5 +++++ FS/t/cust_bill_pay.t | 5 +++++ FS/t/cust_bill_pkg.t | 5 +++++ FS/t/cust_credit.t | 5 +++++ FS/t/cust_credit_bill.t | 5 +++++ FS/t/cust_credit_refund.t | 5 +++++ FS/t/cust_main.t | 5 +++++ FS/t/cust_main_county.t | 5 +++++ FS/t/cust_main_invoice.t | 5 +++++ FS/t/cust_pay.t | 5 +++++ FS/t/cust_pay_batch.t | 5 +++++ FS/t/cust_pkg.t | 5 +++++ FS/t/cust_refund.t | 5 +++++ FS/t/cust_svc.t | 5 +++++ FS/t/domain_record.t | 5 +++++ FS/t/nas.t | 5 +++++ FS/t/part_pkg.t | 5 +++++ FS/t/part_referral.t | 5 +++++ FS/t/part_svc.t | 5 +++++ FS/t/pkg_svc.t | 5 +++++ FS/t/port.t | 5 +++++ FS/t/prepay_credit.t | 5 +++++ FS/t/session.t | 5 +++++ FS/t/svc_Common.t | 5 +++++ FS/t/svc_acct.t | 5 +++++ FS/t/svc_acct_pop.t | 5 +++++ FS/t/svc_acct_sm.t | 5 +++++ FS/t/svc_domain.t | 5 +++++ FS/t/svc_forward.t | 5 +++++ FS/t/svc_www.t | 5 +++++ FS/t/type_pkgs.t | 5 +++++ FS/test.pl | 20 ------------------ 44 files changed, 250 insertions(+), 37 deletions(-) create mode 100644 FS/t/CGI.t create mode 100644 FS/t/CGIwrapper.t create mode 100644 FS/t/Conf.t create mode 100644 FS/t/Record.t create mode 100644 FS/t/UID.t create mode 100644 FS/t/agent.t create mode 100644 FS/t/agent_type.t create mode 100644 FS/t/cust_bill.t create mode 100644 FS/t/cust_bill_pay.t create mode 100644 FS/t/cust_bill_pkg.t create mode 100644 FS/t/cust_credit.t create mode 100644 FS/t/cust_credit_bill.t create mode 100644 FS/t/cust_credit_refund.t create mode 100644 FS/t/cust_main.t create mode 100644 FS/t/cust_main_county.t create mode 100644 FS/t/cust_main_invoice.t create mode 100644 FS/t/cust_pay.t create mode 100644 FS/t/cust_pay_batch.t create mode 100644 FS/t/cust_pkg.t create mode 100644 FS/t/cust_refund.t create mode 100644 FS/t/cust_svc.t create mode 100644 FS/t/domain_record.t create mode 100644 FS/t/nas.t create mode 100644 FS/t/part_pkg.t create mode 100644 FS/t/part_referral.t create mode 100644 FS/t/part_svc.t create mode 100644 FS/t/pkg_svc.t create mode 100644 FS/t/port.t create mode 100644 FS/t/prepay_credit.t create mode 100644 FS/t/session.t create mode 100644 FS/t/svc_Common.t create mode 100644 FS/t/svc_acct.t create mode 100644 FS/t/svc_acct_pop.t create mode 100644 FS/t/svc_acct_sm.t create mode 100644 FS/t/svc_domain.t create mode 100644 FS/t/svc_forward.t create mode 100644 FS/t/svc_www.t create mode 100644 FS/t/type_pkgs.t delete mode 100644 FS/test.pl diff --git a/FS/FS.pm b/FS/FS.pm index ed61db4c8..652e458aa 100644 --- a/FS/FS.pm +++ b/FS/FS.pm @@ -81,10 +81,16 @@ L - Invoice line item class L - Payment class +L - Payment application class + L - Credit class L - Refund class +L - Refund application class + +L - Refund invoice application class + L - Credit card transaction queue class L - Prepaid "calling card" credit class. @@ -122,7 +128,7 @@ The main documentation is in htdocs/docs. =head1 VERSION -$Id: FS.pm,v 1.5 2001-04-23 12:40:30 ivan Exp $ +$Id: FS.pm,v 1.6 2001-09-02 04:25:55 ivan Exp $ =head1 SUPPORT diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm index a7e2831ea..fea6aee02 100644 --- a/FS/FS/cust_bill_pay.pm +++ b/FS/FS/cust_bill_pay.pm @@ -107,9 +107,9 @@ sub insert { }; my $bill_total = 0; - $bill_total += foreach map { $_->amount } + $bill_total += $_ foreach map { $_->amount } qsearch('cust_bill_pay', { 'invnum' => $self->invnum } ); - $bill_total += foreach map { $_->amount } + $bill_total += $_ foreach map { $_->amount } qsearch('cust_credit_bill', { 'invnum' => $self->invnum } ); if ( $bill_total > $cust_bill->charged ) { $dbh->rollback if $oldAutoCommit; @@ -194,7 +194,7 @@ sub cust_bill { =head1 VERSION -$Id: cust_bill_pay.pm,v 1.4 2001-09-02 02:46:55 ivan Exp $ +$Id: cust_bill_pay.pm,v 1.5 2001-09-02 04:25:55 ivan Exp $ =head1 BUGS diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index c44c89377..41ad21b72 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1266,7 +1266,7 @@ sub apply_credits { foreach my $cust_bill ( @invoices ) { my $amount; - if (!(defined $credit) || $credit->credited == 0) { + if ( !defined($credit) || $credit->credited == 0) { $credit = pop @credits or last; } @@ -1316,7 +1316,7 @@ sub apply_payments { foreach my $cust_bill ( @invoices ) { my $amount; - if ( !defined $payment || $payment->unapplied = 0 ) { + if ( !defined($payment) || $payment->unapplied == 0 ) { $payment = pop @payments or last; } @@ -1501,7 +1501,7 @@ sub rebuild_fuzzyfiles { =head1 VERSION -$Id: cust_main.pm,v 1.27 2001-09-02 02:46:55 ivan Exp $ +$Id: cust_main.pm,v 1.28 2001-09-02 04:25:55 ivan Exp $ =head1 BUGS diff --git a/FS/FS/cust_refund.pm b/FS/FS/cust_refund.pm index c216ec284..89f8f68c5 100644 --- a/FS/FS/cust_refund.pm +++ b/FS/FS/cust_refund.pm @@ -103,7 +103,7 @@ sub insert { 'amount' => $self->refund, '_date' => $self->_date, }; - $error = $cust_bill_pay->insert; + $error = $cust_credit_refund->insert; if ( $error ) { $dbh->rollback if $oldAutoCommit; return $error; @@ -198,7 +198,7 @@ sub check { =head1 VERSION -$Id: cust_refund.pm,v 1.6 2001-09-02 02:46:55 ivan Exp $ +$Id: cust_refund.pm,v 1.7 2001-09-02 04:25:55 ivan Exp $ =head1 BUGS diff --git a/FS/MANIFEST b/FS/MANIFEST index f6b8abf2a..209c93a10 100644 --- a/FS/MANIFEST +++ b/FS/MANIFEST @@ -1,4 +1,11 @@ Changes +MANIFEST +MANIFEST.SKIP +Makefile.PL +README +bin/freeside-bill +bin/freeside-email +bin/freeside-print-batch FS.pm FS/CGI.pm FS/Conf.pm @@ -37,16 +44,46 @@ FS/type_pkgs.pm FS/nas.pm FS/port.pm FS/session.pm -MANIFEST -MANIFEST.SKIP -Makefile.PL -test.pl -README -bin/freeside-bill -bin/freeside-email -bin/freeside-print-batch FS/domain_record.pm FS/prepay_credit.pm FS/svc_www.pm FS/CGIwrapper.pm FS/svc_forward.pm +t/agent.t +t/agent_type.t +t/CGI.t +t/CGIwrapper.t +t/Conf.t +t/cust_bill.t +t/cust_bill_pay.t +t/cust_bill_pkg.t +t/cust_credit.t +t/cust_credit_bill.t +t/cust_credit_refund.t +t/cust_main.t +t/cust_main_county.t +t/cust_main_invoice.t +t/cust_pay.t +t/cust_pay_batch.t +t/cust_pkg.t +t/cust_refund.t +t/cust_svc.t +t/domain_record.t +t/nas.t +t/part_pkg.t +t/part_referral.t +t/part_svc.t +t/pkg_svc.t +t/port.t +t/prepay_credit.t +t/Record.t +t/session.t +t/svc_acct.t +t/svc_acct_pop.t +t/svc_acct_sm.t +t/svc_Common.t +t/svc_domain.t +t/svc_forward.t +t/svc_www.t +t/type_pkgs.t +t/UID.t diff --git a/FS/t/CGI.t b/FS/t/CGI.t new file mode 100644 index 000000000..1b4e238b6 --- /dev/null +++ b/FS/t/CGI.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::CGI; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/CGIwrapper.t b/FS/t/CGIwrapper.t new file mode 100644 index 000000000..06c741c3a --- /dev/null +++ b/FS/t/CGIwrapper.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::CGIwrapper; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/Conf.t b/FS/t/Conf.t new file mode 100644 index 000000000..a9f7653b3 --- /dev/null +++ b/FS/t/Conf.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::Conf; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/Record.t b/FS/t/Record.t new file mode 100644 index 000000000..00de1eda3 --- /dev/null +++ b/FS/t/Record.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::Record; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/UID.t b/FS/t/UID.t new file mode 100644 index 000000000..9f7da4e89 --- /dev/null +++ b/FS/t/UID.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::UID; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/agent.t b/FS/t/agent.t new file mode 100644 index 000000000..769cce254 --- /dev/null +++ b/FS/t/agent.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::agent; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/agent_type.t b/FS/t/agent_type.t new file mode 100644 index 000000000..99c66a151 --- /dev/null +++ b/FS/t/agent_type.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::agent_type; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_bill.t b/FS/t/cust_bill.t new file mode 100644 index 000000000..b43f08ee2 --- /dev/null +++ b/FS/t/cust_bill.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_bill; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_bill_pay.t b/FS/t/cust_bill_pay.t new file mode 100644 index 000000000..001eed01e --- /dev/null +++ b/FS/t/cust_bill_pay.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_bill_pay; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_bill_pkg.t b/FS/t/cust_bill_pkg.t new file mode 100644 index 000000000..0e45bdb0c --- /dev/null +++ b/FS/t/cust_bill_pkg.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_bill_pkg; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_credit.t b/FS/t/cust_credit.t new file mode 100644 index 000000000..cddf75cff --- /dev/null +++ b/FS/t/cust_credit.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_credit; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_credit_bill.t b/FS/t/cust_credit_bill.t new file mode 100644 index 000000000..0ef54c3f1 --- /dev/null +++ b/FS/t/cust_credit_bill.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_credit_bill; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_credit_refund.t b/FS/t/cust_credit_refund.t new file mode 100644 index 000000000..6b2b599f3 --- /dev/null +++ b/FS/t/cust_credit_refund.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_credit_refund; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_main.t b/FS/t/cust_main.t new file mode 100644 index 000000000..b0ffbdb32 --- /dev/null +++ b/FS/t/cust_main.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_main; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_main_county.t b/FS/t/cust_main_county.t new file mode 100644 index 000000000..dd6119911 --- /dev/null +++ b/FS/t/cust_main_county.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_main_county; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_main_invoice.t b/FS/t/cust_main_invoice.t new file mode 100644 index 000000000..9661620e0 --- /dev/null +++ b/FS/t/cust_main_invoice.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_main_invoice; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_pay.t b/FS/t/cust_pay.t new file mode 100644 index 000000000..f6d0b7571 --- /dev/null +++ b/FS/t/cust_pay.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_pay; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_pay_batch.t b/FS/t/cust_pay_batch.t new file mode 100644 index 000000000..02b572c15 --- /dev/null +++ b/FS/t/cust_pay_batch.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_pay_batch; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_pkg.t b/FS/t/cust_pkg.t new file mode 100644 index 000000000..c6a686061 --- /dev/null +++ b/FS/t/cust_pkg.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_pkg; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_refund.t b/FS/t/cust_refund.t new file mode 100644 index 000000000..91583da28 --- /dev/null +++ b/FS/t/cust_refund.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_refund; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/cust_svc.t b/FS/t/cust_svc.t new file mode 100644 index 000000000..267d731db --- /dev/null +++ b/FS/t/cust_svc.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::cust_svc; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/domain_record.t b/FS/t/domain_record.t new file mode 100644 index 000000000..794518ccf --- /dev/null +++ b/FS/t/domain_record.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::domain_record; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/nas.t b/FS/t/nas.t new file mode 100644 index 000000000..6f8ae36d2 --- /dev/null +++ b/FS/t/nas.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::nas; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/part_pkg.t b/FS/t/part_pkg.t new file mode 100644 index 000000000..fd96073f9 --- /dev/null +++ b/FS/t/part_pkg.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::part_pkg; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/part_referral.t b/FS/t/part_referral.t new file mode 100644 index 000000000..d20b97930 --- /dev/null +++ b/FS/t/part_referral.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::part_referral; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/part_svc.t b/FS/t/part_svc.t new file mode 100644 index 000000000..bdb2a7aca --- /dev/null +++ b/FS/t/part_svc.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::part_svc; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/pkg_svc.t b/FS/t/pkg_svc.t new file mode 100644 index 000000000..77d34295a --- /dev/null +++ b/FS/t/pkg_svc.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::pkg_svc; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/port.t b/FS/t/port.t new file mode 100644 index 000000000..46377aaf9 --- /dev/null +++ b/FS/t/port.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::port; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/prepay_credit.t b/FS/t/prepay_credit.t new file mode 100644 index 000000000..e7626bdf1 --- /dev/null +++ b/FS/t/prepay_credit.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::prepay_credit; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/session.t b/FS/t/session.t new file mode 100644 index 000000000..c4b714ea4 --- /dev/null +++ b/FS/t/session.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::session; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/svc_Common.t b/FS/t/svc_Common.t new file mode 100644 index 000000000..ed49e1e49 --- /dev/null +++ b/FS/t/svc_Common.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::svc_Common; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/svc_acct.t b/FS/t/svc_acct.t new file mode 100644 index 000000000..9ca78c9d1 --- /dev/null +++ b/FS/t/svc_acct.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::svc_acct; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/svc_acct_pop.t b/FS/t/svc_acct_pop.t new file mode 100644 index 000000000..e612c40af --- /dev/null +++ b/FS/t/svc_acct_pop.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::svc_acct_pop; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/svc_acct_sm.t b/FS/t/svc_acct_sm.t new file mode 100644 index 000000000..1082f2cdb --- /dev/null +++ b/FS/t/svc_acct_sm.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::svc_acct_sm; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/svc_domain.t b/FS/t/svc_domain.t new file mode 100644 index 000000000..4d91898ac --- /dev/null +++ b/FS/t/svc_domain.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::svc_domain; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/svc_forward.t b/FS/t/svc_forward.t new file mode 100644 index 000000000..d653d34ef --- /dev/null +++ b/FS/t/svc_forward.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::svc_forward; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/svc_www.t b/FS/t/svc_www.t new file mode 100644 index 000000000..eb4e83fbc --- /dev/null +++ b/FS/t/svc_www.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::svc_www; +$loaded=1; +print "ok 1\n"; diff --git a/FS/t/type_pkgs.t b/FS/t/type_pkgs.t new file mode 100644 index 000000000..98401805c --- /dev/null +++ b/FS/t/type_pkgs.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::type_pkgs; +$loaded=1; +print "ok 1\n"; diff --git a/FS/test.pl b/FS/test.pl deleted file mode 100644 index dc3726236..000000000 --- a/FS/test.pl +++ /dev/null @@ -1,20 +0,0 @@ -# Before `make install' is performed this script should be runnable with -# `make test'. After `make install' it should work as `perl test.pl' - -######################### We start with some black magic to print on failure. - -# Change 1..1 below to 1..last_test_to_print . -# (It may become useful if the test is moved to ./t subdirectory.) - -BEGIN { $| = 1; print "1..1\n"; } -END {print "not ok 1\n" unless $loaded;} -use FS; -$loaded = 1; -print "ok 1\n"; - -######################### End of black magic. - -# Insert your test code below (better if it prints "ok 13" -# (correspondingly "not ok 13") depending on the success of chunk 13 -# of the test code): - -- 2.11.0