Commits

Herbert Breunung committed 5490d48

rearrange and rename test files to 3 part numbering

Comments (0)

Files changed (9)

t/00-start.t

-#!usr/bin/perl
-
-# making local lib favoured
-BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
-
-use Test::More tests => 3;
-#use Test::Script;
-use Test::NoWarnings;
-
-diag( "Testing Kephra $Kephra::VERSION, Perl $], $^X" );
-ok( $] >= 5.006, 'Your perl is new enough' );
-use_ok( 'Kephra', 'main module compiles' );
-
-# please help me to make this run !
-#script_compiles( 'bin/kephra', 'Main script compiles' );
-#script_runs( 'bin/kephra', 'Main script compiles' );
-
-exit(0);
+#!usr/bin/perl
+
+# making local lib favoured
+BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
+
+use Test::More tests => 3;
+#use Test::Script;
+use Test::NoWarnings;
+
+diag( "Testing Kephra $Kephra::VERSION, Perl $], $^X" );
+ok( $] >= 5.006, 'Your perl is new enough' );
+use_ok( 'Kephra', 'main module compiles' );
+
+# please help me to make this run !
+#script_compiles( 'bin/kephra', 'Main script compiles' );
+#script_runs( 'bin/kephra', 'Main script compiles' );
+
+exit(0);
+#!usr/bin/perl
+
+# making local lib favoured
+BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
+
+use Test::More;
+use Test::NoWarnings;
+use File::Find;
+use Kephra;
+
+my @modules = (
+    @Kephra::external_dependencies, 
+    @Kephra::used_wx_modules, 
+    @{get_submodules()}, 
+);
+plan tests => 1 + @modules;
+
+use_ok($_) for @modules;
+
+sub get_submodules {
+    my @kephra_modules = ();
+    chdir '..' if -d '../t';
+    find( sub {
+        return if not -f $_ or $_ !~ /\.pm$/;
+        my $module = $File::Find::name;
+        $module =~ s|lib/||;
+        $module =~ s|\.pm||;
+        $module =~ s|/|::|g;
+        push @kephra_modules, $module;
+    }, 'lib'); # print "@modules"; #use Data::Dumper; # diag Dumper \@modules;
+    return \@kephra_modules;
+}
+
+exit(0);

t/01-compile.t

-#!usr/bin/perl
-
-# making local lib favoured
-BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
-
-use Test::More;
-use Test::NoWarnings;
-use File::Find;
-use Kephra;
-
-my @modules = (
-    @Kephra::external_dependencies, 
-    @Kephra::used_wx_modules, 
-    @{get_submodules()}, 
-);
-plan tests => 1 + @modules;
-
-use_ok($_) for @modules;
-
-sub get_submodules {
-    my @kephra_modules = ();
-    chdir '..' if -d '../t';
-    find( sub {
-        return if not -f $_ or $_ !~ /\.pm$/;
-        my $module = $File::Find::name;
-        $module =~ s|lib/||;
-        $module =~ s|\.pm||;
-        $module =~ s|/|::|g;
-        push @kephra_modules, $module;
-    }, 'lib'); # print "@modules"; #use Data::Dumper; # diag Dumper \@modules;
-    return \@kephra_modules;
-}
-
-exit(0);

t/101-apphelper.t

Empty file added.
Empty file added.
+#!perl 
+
+use strict;
+use warnings;
+use Test::More;
+
+# Ensure a recent version of Test::Pod
+my $min_tp = 1.22;
+eval "use Test::Pod $min_tp";
+plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
+
+all_pod_files_ok();

t/KephraTesting.txt

Empty file added.

t/pod.t

-#!perl 
-
-use strict;
-use warnings;
-use Test::More;
-
-# Ensure a recent version of Test::Pod
-my $min_tp = 1.22;
-eval "use Test::Pod $min_tp";
-plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
-
-all_pod_files_ok();