- hack hack hack

git-svn-id: file:///home/david/.svk/local/mirror/dagolden/Test-Filenames/trunk@4210 5eb9f33a-0d21-0410-bbf2-8fdb37bc7dbf

Build.PL

@@ -15,6 +15,9 @@ $class->new(
         'File::Spec'            => 3.19,
         'Test::More'            => 0.62, # various features/fixes
     },
+    build_requires  => {
+        'Test::Tester'          => 0.08,
+    },
     meta_add            => { 
         no_index => { 
             directory => [ qw{

lib/Test/Filenames.pm

@@ -3,14 +3,56 @@ use strict;
 
 $Test::Filenames::VERSION = '0.01'; 
 
-use File::Basename qw/basename/;
 use Test::Builder;
+use File::Basename qw/basename/;
 use File::Spec::Functions qw/canonpath/;
 
+use vars qw/@ISA @EXPORT/;
+use Exporter ();
+BEGIN { @ISA = qw/Exporter/ }
+@EXPORT = qw(
+    filename_is 
+    filename_isnt
+    filename_like
+    filename_unlike
+);
+
+my $TB = Test::Builder->new();
+
+#--------------------------------------------------------------------------#
+# import -- cribbed from Test::Builder
+#--------------------------------------------------------------------------#
+
+sub import {
+    my ($self, @args) = @_;
+    my $pack = caller;
+
+    $Test->exported_to($pack);
+    $Test->plan(@_);
+
+    $self->export_to_level(1, $self, $_) for @EXPORT;
+}
+
 #--------------------------------------------------------------------------#
 # public API
 #--------------------------------------------------------------------------#
 
+sub filename_is {
+
+}
+
+sub filename_isnt {
+
+}
+
+sub filename_like {
+
+}
+
+sub filename_unlike {
+
+}
+
 #--------------------------------------------------------------------------#
 # private functions
 #--------------------------------------------------------------------------#

t/00_load.t

@@ -1,43 +1,29 @@
-# CPAN::Reporter tests
 use strict;
 BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
 
 select(STDERR); $|=1;
 select(STDOUT); $|=1;
 
 use Test::More;
-use t::Helper;
-use t::Frontend;
 
-#--------------------------------------------------------------------------#
-# Bailout if we're on a broken dev version of Test::Harness
-#--------------------------------------------------------------------------#
-require Test::Harness;
-if ( $Test::Harness::VERSION eq "2.99_01" ) {
-    warn "Detected Test::Harness 2.99_01\n";
-    BAIL_OUT("Your Test::Harness conflicts with CPAN::Reporter")
-}
+my @api = qw(
+    filename_is
+    filename_isnt
+    filename_like
+    filename_unlike
+);
+
+plan tests =>  1 + 2 * @api;
 
 #--------------------------------------------------------------------------#
 
-my @api = qw(
-    configure 
-    grade_PL 
-    grade_make
-    grade_test 
-    record_command 
-    test 
-);
+require_ok( 'Test::Filename' );
 
-my @modules = qw(
-    CPAN::Reporter
-    CPAN::Reporter::Config
-    CPAN::Reporter::History
-);
+can_ok( 'Test::Filename', $_ ) for @api;
 
-plan tests =>  @api + @modules;
+package Foo;
 
-require_ok( $_ ) for @modules;
+Test::Filename->import();
 
-can_ok( 'CPAN::Reporter', $_ ) for @api;
+can_ok( 'Foo', $_ ) for @api;
 

t/filename_is.t

@@ -0,0 +1,9 @@
+use strict;
+BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }
+
+select(STDERR); $|=1;
+select(STDOUT); $|=1;
+
+use Test::More;
+
+