[Po4a-devel][CVS] po4a/t 01-classes.t,1.1,1.2
Update of /cvsroot/po4a/po4a/t
In directory haydn:/tmp/cvs-serv4741/t
Modified Files:
01-classes.t
Log Message:
Put the 'use module' in eval block, so that we can test each of them separately;
Add the dia module
Index: 01-classes.t
===================================================================
RCS file: /cvsroot/po4a/po4a/t/01-classes.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 01-classes.t 6 Nov 2003 16:35:58 -0000 1.1
+++ 01-classes.t 25 May 2004 17:37:13 -0000 1.2
@@ -2,15 +2,24 @@
#########################
-use Test::Simple tests =>7;
+use Test::More tests =>8;
-use Locale::Po4a::Po; ok(1, 'Po.pm loadable');
-use Locale::Po4a::TransTractor; ok(1, 'TransTractor.pm loadable');
+eval qq{use Locale::Po4a::Po}; ok(!$@, 'Po.pm loadable');
+diag($@) if $@;
+eval qq{use Locale::Po4a::TransTractor}; ok(!$@, 'TransTractor.pm loadable');
+diag($@) if $@;
-use Locale::Po4a::KernelHelp; ok(1, 'KernelHelp.pm loadable');
-use Locale::Po4a::Man; ok(1, 'Man.pm loadable');
-use Locale::Po4a::Pod; ok(1, 'Pod.pm loadable');
-use Locale::Po4a::Sgml; ok(1, 'Sgml.pm loadable');
+eval qq{use Locale::Po4a::KernelHelp}; ok(!$@, 'KernelHelp.pm loadable');
+diag($@) if $@;
+eval qq{use Locale::Po4a::Man}; ok(!$@, 'Man.pm loadable');
+diag($@) if $@;
+eval qq{use Locale::Po4a::Pod}; ok(!$@, 'Pod.pm loadable');
+diag($@) if $@;
+eval qq{use Locale::Po4a::Sgml}; ok(!$@, 'Sgml.pm loadable');
+diag($@) if $@;
-use Locale::Po4a::Chooser; ok(1, 'Chooser.pm loadable');
+eval qq{use Locale::Po4a::Dia}; ok(!$@, 'Dia.pm loadable');
+diag($@) if $@;
+eval qq{use Locale::Po4a::Chooser}; ok(!$@, 'Chooser.pm loadable');
+diag($@) if $@;