| File: | t/Ris.t |
| Coverage: | 100.0% |
| line | stmt | bran | cond | sub | time | code |
|---|---|---|---|---|---|---|
| 1 | #!/usr/bin/perl | |||||
| 2 | # | |||||
| 3 | # This Koha test module is a stub! | |||||
| 4 | # Add more tests here!!! | |||||
| 5 | ||||||
| 6 | 1 1 1 | 1.33283539325338e+15 3 24 | use strict; | |||
| 7 | 1 1 1 | 4 1 33 | use warnings; | |||
| 8 | ||||||
| 9 | 1 1 1 | 211 18730 39 | use Test::More tests => 6; | |||
| 10 | ||||||
| 11 | BEGIN { | |||||
| 12 | 1 | 1649 | use_ok('C4::Ris'); | |||
| 13 | } | |||||
| 14 | ||||||
| 15 | 1 | 193078 | is(C4::Ris::print_typetag(),undef,'test printing typetag'); | |||
| 16 | ||||||
| 17 | 1 | 617 | is(C4::Ris::print_title(),undef, 'test printing title when print_title is nil'); | |||
| 18 | ||||||
| 19 | 1 | 365 | is(C4::Ris::print_stitle(),undef, 'test printing info from series title field when its nil'); | |||
| 20 | ||||||
| 21 | 1 | 604 | ok((C4::Ris::charconv('hello world'))[0] eq 'hello world', 'testing that it returns what you entered'); | |||
| 22 | 1 | 408 | ok(C4::Ris::charconv() == 0, 'testing when charconv is nil'); | |||