From ed3c0545dafde62258624b6b143a0b24d35c37e8 Mon Sep 17 00:00:00 2001 From: John Beppu Date: Tue, 3 Feb 2009 16:02:10 -0600 Subject: [PATCH] Tests for New Modules - KohaTest::Category - KohaTest::ItemCirculationAlertPreference - KohaTest::ItemType - KohaTest::Message Signed-off-by: Daniel Sweeney Signed-off-by: Galen Charlton --- t/lib/KohaTest/Category.pm | 23 ++++++++ .../ItemCirculationAlertPreference.pm | 27 ++++++++++ t/lib/KohaTest/ItemType.pm | 23 ++++++++ t/lib/KohaTest/Message.pm | 52 +++++++++++++++++++ 4 files changed, 125 insertions(+) create mode 100644 t/lib/KohaTest/Category.pm create mode 100644 t/lib/KohaTest/ItemCirculationAlertPreference.pm create mode 100644 t/lib/KohaTest/ItemType.pm create mode 100644 t/lib/KohaTest/Message.pm diff --git a/t/lib/KohaTest/Category.pm b/t/lib/KohaTest/Category.pm new file mode 100644 index 0000000000..3febfda916 --- /dev/null +++ b/t/lib/KohaTest/Category.pm @@ -0,0 +1,23 @@ +package KohaTest::Category; +use base qw( KohaTest ); + +use strict; +use warnings; + +use Test::More; + +use C4::Category; +sub testing_class { 'C4::Category' }; + + +sub methods : Test( 1 ) { + my $self = shift; + my @methods = qw( + new + all + ); + + can_ok( $self->testing_class, @methods ); +} + +1; diff --git a/t/lib/KohaTest/ItemCirculationAlertPreference.pm b/t/lib/KohaTest/ItemCirculationAlertPreference.pm new file mode 100644 index 0000000000..3094b335a5 --- /dev/null +++ b/t/lib/KohaTest/ItemCirculationAlertPreference.pm @@ -0,0 +1,27 @@ +package KohaTest::ItemCirculationAlertPreference; +use base qw( KohaTest ); + +use strict; +use warnings; + +use Test::More; + +use C4::ItemCirculationAlertPreference; +sub testing_class { 'C4::ItemCirculationAlertPreference' }; + + +sub methods : Test( 1 ) { + my $self = shift; + my @methods = qw( + new + create + delete + is_enabled_for + find + grid + ); + + can_ok( $self->testing_class, @methods ); +} + +1; diff --git a/t/lib/KohaTest/ItemType.pm b/t/lib/KohaTest/ItemType.pm new file mode 100644 index 0000000000..2474ce3298 --- /dev/null +++ b/t/lib/KohaTest/ItemType.pm @@ -0,0 +1,23 @@ +package KohaTest::ItemType; +use base qw( KohaTest ); + +use strict; +use warnings; + +use Test::More; + +use C4::ItemType; +sub testing_class { 'C4::ItemType' }; + + +sub methods : Test( 1 ) { + my $self = shift; + my @methods = qw( + new + all + ); + + can_ok( $self->testing_class, @methods ); +} + +1; diff --git a/t/lib/KohaTest/Message.pm b/t/lib/KohaTest/Message.pm new file mode 100644 index 0000000000..d1d822f2ee --- /dev/null +++ b/t/lib/KohaTest/Message.pm @@ -0,0 +1,52 @@ +package KohaTest::Message; +use base qw( KohaTest ); + +use strict; +use warnings; + +use Test::More; + +use C4::Message; +sub testing_class { 'C4::Message' }; + + +sub methods : Test( 1 ) { + my $self = shift; + my @methods = qw( + new + find + find_last_message + enqueue + update + metadata + render_metadata + append + ); + + can_ok( $self->testing_class, @methods ); +} + +sub test_metadata : Test( 1 ) { + my $self = shift; + my $message = C4::Message->new; + $message->metadata({ + header => "Header", + body => [], + footer => "Footer", + }); + like($message->{metadata}, qr{^---}, "The metadata attribute should be serialized as YAML."); +} + +sub test_append : Test( 1 ) { + my $self = shift; + my $message = C4::Message->new; + $message->metadata({ + header => "Header", + body => [], + footer => "Footer", + }); + $message->append("foo"); + is($message->metadata->{body}->[0], "foo", "Appending a string should add an element to metadata.body."); +} + +1; -- 2.39.5