Changeset 5aa33fd for t/mock.pl

Timestamp:

May 22, 2010, 10:37:25 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

04b16f8

Parents:

de18326

git-author:

Nelson Elhage <nelhage@mit.edu> (05/19/10 00:39:49)

git-committer:

Nelson Elhage <nelhage@mit.edu> (05/22/10 22:37:25)

Message:

Merge perl_tester and tester.

File:

• t/mock.pl (modified) (1 diff)

t/mock.pl

@@ -1 @@
-use File::Basename;
-use lib (dirname($0) . '/../perl/lib');
-
 package BarnOwl;
 use strict;
 use warnings;
-use Carp;
 
-sub get_data_dir {"."}
-sub get_config_dir {"."}
-sub create_style {}
-
-sub debug {
+no warnings 'redefine';
+sub debug($) {
     warn "[DEBUG] ", shift, "\n" if $ENV{TEST_VERBOSE};
 }
 
-sub BarnOwl::Internal::new_command {}
-sub BarnOwl::Internal::new_variable_bool {}
-sub BarnOwl::Internal::new_variable_int {}
-sub BarnOwl::Internal::new_variable_string {}
-sub BarnOwl::Editwin::save_excursion(&) {}
-
-use BarnOwl;
-
 1;