[Po4a-devel][CVS] po4a/t 01-classes.t,1.1,1.2

[Martin Quinson]

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 $@;