Commits

Herbert Breunung committed 9eb2580

reordered testsuite

  • Participants
  • Parent commits e3c761e

Comments (0)

Files changed (20)

lib/Kephra/API/CommandList.pm

-use strict;
-use warnings;
-
-package Kephra::API::CommandList;
-
-
-1;

lib/Kephra/API/DocumentStash.pm

-use strict;
-use warnings;
-use Kephra::Document;
-
-package Kephra::API::DocumentStash;
-
-my %documents;
-
-sub new_document {
-}
-
-sub get_by_ref{}
-sub get_by_path{}
-sub get_by_nr{}
-sub get_all{
-}
-
-1;

lib/Kephra/API/DrumBeat.pm

-use strict;
-use warnings;
-
-package Kephra::API::DrumBeat;
-
-
-1;

lib/Kephra/API/EventTable.pm

-use strict;
-use warnings;
-
-package Kephra::API::EventTable;
-
-
-1;

lib/Kephra/CommandList.pm

+use strict;
+use warnings;
+
+package Kephra::API::CommandList;
+
+
+1;

lib/Kephra/DocumentStash.pm

+use strict;
+use warnings;
+use Kephra::Document;
+
+package Kephra::API::DocumentStash;
+
+my %documents;
+
+sub new_document {
+}
+
+sub get_by_ref{}
+sub get_by_path{}
+sub get_by_nr{}
+sub get_all{
+}
+
+1;

lib/Kephra/DrumBeat.pm

+use strict;
+use warnings;
+
+package Kephra::API::DrumBeat;
+
+
+1;

lib/Kephra/EventTable.pm

+use strict;
+use warnings;
+
+package Kephra::API::EventTable;
+
+
+1;

lib/Kephra/Logger.pm

 package Kephra::Logger;
 
 our $level;
-our @output:
+our @output;
 
 sub init {
 }

lib/Kephra/Plugin/Demo.pm

-use strict;
-use warnings;
-
-package Kephra::Plugin::Demo;
-
-
-1;

lib/Kephra/Plugin/Tutorial.pm

+use strict;
+use warnings;
+
+package Kephra::Plugin::Tutorial;
+
+
+1;

t/004-config.t

-#!usr/bin/perl
-
-# making local lib favoured
-BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
-
-use Test::More tests => 2;
-use Test::NoWarnings;
-
-ok(1, 'there will be tests');
-
-exit(0);

t/005-api.t

-#!usr/bin/perl
-
-# making local lib favoured
-BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
-
-use Test::More tests => 2;
-use Test::NoWarnings;
-
-ok(1, 'there will be tests');
-
-exit(0);

t/100-apphelper.t

-#!usr/bin/perl
-
-# making local lib favoured
-BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
-
-use Test::More tests => 15;
-#use Text::Exception;
-use Test::NoWarnings;
-
-use Wx;
-use Kephra::App::Helper;
-
-# testing the function that gives references to the helper functions
-my $testcolor = Kephra::App::Helper::get('is_color');
-my @chref = Kephra::App::Helper::get('is_color', 'make_color');
-is( $testcolor, \&Kephra::App::Helper::is_color, 'get a helper function reference');
-is_deeply( \@chref, [ \&Kephra::App::Helper::is_color, \&Kephra::App::Helper::make_color ], 
-    'get several helper references');
-my $mk_color = $chref[1];
-
-# color helper
-my $white = Wx::Colour->new(255, 255, 255);
-is( Kephra::App::Helper::is_color(0),      0, 'can detect what is not a color object');
-is( Kephra::App::Helper::is_color($white), 1, 'can detect what is a color object');
-is( $testcolor->($white), 1, 'refernce works too');
-is( $testcolor->( $mk_color->(0,0,255) ), 1, 'R,G,B input layout works ');
-is( $testcolor->( $mk_color->("0,0,255") ), 1, '"R,G,B" input layout works');
-is( $testcolor->( $mk_color->("#0000FF") ), 1, '"#RRGGBB" input layout works');
-is( $testcolor->( $mk_color->("0000ff") ), 1, '"RRGGBB" input layout works');
-is( $testcolor->( $mk_color->("blue") ), 1,'"colorname" input layout works');
-is( $testcolor->( $mk_color->("WHEAT") ), 1,'"colorname" input layout works with db names');
-
-# gui contruction helper
-my $popanel = Kephra::App::Helper::get('put_on_panel');
-my $testpanel = Kephra::App::Helper::get('is_panel');
-my $button = Wx::Button->new(undef,-1,'');
-my $panel = Wx::Panel->new(undef);
-is( $testpanel->( $white ), 0, 'can detect what is not a panel');
-is( $testpanel->( $panel ), 1, 'can detect panel');
-is( $testpanel->( $popanel->($button) ), 1, 'can detect panel');
-
-exit(0);
-
+#!usr/bin/perl
+
+# making local lib favoured
+BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
+
+use Test::More tests => 2;
+use Test::NoWarnings;
+
+ok(1, 'there will be tests');
+
+exit(0);

t/110-editpanel.t

-#!usr/bin/perl
-
-# making local lib favoured
-BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
-
-use Test::More tests => 2;
-use Test::NoWarnings;
-
-ok(1, 'there will be tests');
-
-exit(0);

t/200-apphelper.t

+#!usr/bin/perl
+
+# making local lib favoured
+BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
+
+use Test::More tests => 15;
+#use Text::Exception;
+use Test::NoWarnings;
+
+use Wx;
+use Kephra::App::Helper;
+
+# testing the function that gives references to the helper functions
+my $testcolor = Kephra::App::Helper::get('is_color');
+my @chref = Kephra::App::Helper::get('is_color', 'make_color');
+is( $testcolor, \&Kephra::App::Helper::is_color, 'get a helper function reference');
+is_deeply( \@chref, [ \&Kephra::App::Helper::is_color, \&Kephra::App::Helper::make_color ], 
+    'get several helper references');
+my $mk_color = $chref[1];
+
+# color helper
+my $white = Wx::Colour->new(255, 255, 255);
+is( Kephra::App::Helper::is_color(0),      0, 'can detect what is not a color object');
+is( Kephra::App::Helper::is_color($white), 1, 'can detect what is a color object');
+is( $testcolor->($white), 1, 'refernce works too');
+is( $testcolor->( $mk_color->(0,0,255) ), 1, 'R,G,B input layout works ');
+is( $testcolor->( $mk_color->("0,0,255") ), 1, '"R,G,B" input layout works');
+is( $testcolor->( $mk_color->("#0000FF") ), 1, '"#RRGGBB" input layout works');
+is( $testcolor->( $mk_color->("0000ff") ), 1, '"RRGGBB" input layout works');
+is( $testcolor->( $mk_color->("blue") ), 1,'"colorname" input layout works');
+is( $testcolor->( $mk_color->("WHEAT") ), 1,'"colorname" input layout works with db names');
+
+# gui contruction helper
+my $popanel = Kephra::App::Helper::get('put_on_panel');
+my $testpanel = Kephra::App::Helper::get('is_panel');
+my $button = Wx::Button->new(undef,-1,'');
+my $panel = Wx::Panel->new(undef);
+is( $testpanel->( $white ), 0, 'can detect what is not a panel');
+is( $testpanel->( $panel ), 1, 'can detect panel');
+is( $testpanel->( $popanel->($button) ), 1, 'can detect panel');
+
+exit(0);
+

t/310-editpanel.t

+#!usr/bin/perl
+
+# making local lib favoured
+BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
+
+use Test::More tests => 2;
+use Test::NoWarnings;
+
+ok(1, 'there will be tests');
+
+exit(0);
+#!usr/bin/perl
+
+# making local lib favoured
+BEGIN { unshift @INC, -d 't' ? 'lib' : '../lib' }
+
+use Test::More tests => 2;
+use Test::NoWarnings;
+
+ok(1, 'there will be tests');
+
+exit(0);

t/KephraTesting.pod

+=pod
+
+0     compile / start / prerun
+
+
+1
+
+
+2
+
+
+3
+
+
+4
+
+
+5
+
+
+6
+
+
+7
+
+
+8
+
+
+9
+
+=cut