@@ -, +, @@ - replace ok with is - remove diag - replace $dbh->prepare->execute->fetchrow with $dbh->selectrow_array --- t/db_dependent/NewsChannels.t | 28 ++++++++++------------------ tools/koha-news.pl | 2 +- 2 files changed, 11 insertions(+), 19 deletions(-) --- a/t/db_dependent/NewsChannels.t +++ a/t/db_dependent/NewsChannels.t @@ -29,7 +29,6 @@ my $addcat = 'CAT1'; my $sth = $dbh->prepare( q{ SELECT categorycode FROM categories WHERE categorycode = ? } ); $sth->execute ( $addcat ); if ( not defined $sth->fetchrow () ) { - diag("Category $addcat not found, inserting"); $dbh->do( q{ INSERT INTO categories (categorycode,description) VALUES (?,?) }, undef, ( $addcat, "$addcat description") ); } @@ -47,7 +46,6 @@ my $brwrnmbr; # Not found, let us insert it. if ( not defined $brwrnmbr ) { - diag("Borrower $addbrwr not found, inserting"); $dbh->do( q{ INSERT INTO borrowers (surname, address, city, branchcode, categorycode) VALUES (?, ?, ?, ?, ?) }, undef, ($addbrwr, '(test) address', '(test) city', $addbra, $addcat) ); @@ -65,7 +63,7 @@ ok ( defined $brwrnmbr ); # Test add_opac_new my $rv = add_opac_new(); # intentionally bad -ok( $rv == 0, 'Correctly failed on no parameter!' ); +is( $rv, 0, 'Correctly failed on no parameter!' ); my $timestamp = '2000-01-01'; my ( $timestamp1, $timestamp2 ) = ( $timestamp, $timestamp ); @@ -83,7 +81,7 @@ my $href_entry1 = { }; $rv = add_opac_new($href_entry1); -ok( $rv == 1, 'Successfully added the first dummy news item!' ); +is( $rv, 1, 'Successfully added the first dummy news item!' ); my ( $title2, $new2, $lang2, $expirationdate2, $number2 ) = ( 'News Title2', '

We have some exciting news!

', q{}, '2999-12-31', 1 ); @@ -98,7 +96,7 @@ my $href_entry2 = { branchcode => 'LIB1', }; $rv = add_opac_new($href_entry2); -ok( $rv == 1, 'Successfully added the second dummy news item!' ); +is( $rv, 1, 'Successfully added the second dummy news item!' ); my ( $title3, $new3, $lang3, $number3 ) = ( 'News Title3', '

News without expiration date

', q{}, 1 ); @@ -112,36 +110,30 @@ my $href_entry3 = { branchcode => 'LIB1', }; $rv = add_opac_new($href_entry3); -ok( $rv == 1, 'Successfully added the third dummy news item without expiration date!' ); +is( $rv, 1, 'Successfully added the third dummy news item without expiration date!' ); # We need to determine the idnew in a non-MySQLism way. # This should be good enough. my $query = q{ SELECT idnew from opac_news WHERE timestamp='2000-01-01' AND expirationdate='2999-12-30'; }; -my $sth = $dbh->prepare($query); -$sth->execute(); -my $idnew1 = $sth->fetchrow; +my ( $idnew1 ) = $dbh->selectrow_array( $query ); $query = q{ SELECT idnew from opac_news WHERE timestamp='2000-01-01' AND expirationdate='2999-12-31'; }; -$sth = $dbh->prepare($query); -$sth->execute(); -my $idnew2 = $sth->fetchrow; +my ( $idnew2 ) = $dbh->selectrow_array( $query ); $query = q{ SELECT idnew from opac_news WHERE timestamp='2000-01-02'; }; -$sth = $dbh->prepare($query); -$sth->execute(); -my $idnew3 = $sth->fetchrow; +my ( $idnew3 ) = $dbh->selectrow_array( $query ); # Test upd_opac_new $rv = upd_opac_new(); # intentionally bad parmeters -ok( $rv == 0, 'Correctly failed on no parameter!' ); +is( $rv, 0, 'Correctly failed on no parameter!' ); $new2 = '

Update! There is no news!

'; $href_entry2->{new} = $new2; $href_entry2->{idnew} = $idnew2; $rv = upd_opac_new($href_entry2); -ok( $rv == 1, 'Successfully updated second dummy news item!' ); +is( $rv, 1, 'Successfully updated second dummy news item!' ); # Test get_opac_new (single news item) $timestamp1 = output_pref( { dt => dt_from_string( $timestamp1 ), dateonly => 1 } ); @@ -192,7 +184,7 @@ is_deeply( # Test get_opac_new (single news item without expiration date) my $news3 = get_opac_new($idnew3); -ok (! $news3->{ expirationdate }, "Expiration date should be empty"); +is($news3->{ expirationdate }, undef, "Expiration date should be empty"); # Test get_opac_news (multiple news items) my ( $opac_news_count, $arrayref_opac_news ) = get_opac_news( 0, q{}, 'LIB1' ); --- a/tools/koha-news.pl +++ a/tools/koha-news.pl @@ -41,7 +41,7 @@ my $id = $cgi->param('id'); my $title = $cgi->param('title'); my $new = $cgi->param('new'); my $expirationdate; -if ( scalar $cgi->param('expirationdate') ) { +if ( $cgi->param('expirationdate') ) { $expirationdate = output_pref({ dt => dt_from_string( scalar $cgi->param('expirationdate') ), dateformat => 'iso', dateonly => 1 }); } my $timestamp = output_pref({ dt => dt_from_string( scalar $cgi->param('timestamp') ), dateformat => 'iso', dateonly => 1 }); --