source: t/mock.pl @ 685e96f

release-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 685e96f was 42ad917, checked in by David Benjamin <davidben@mit.edu>, 15 years ago
Add perl_tester to run perl in barnowl environment Main function shameless borrowed from perldoc perlembed. Signed-off-by: David Benjamin <davidben@mit.edu>
  • Property mode set to 100644
File size: 487 bytes
Line 
1use File::Basename;
2use lib (dirname($0) . '/../perl/lib');
3
4package BarnOwl;
5use strict;
6use warnings;
7use Carp;
8
9sub get_data_dir {"."}
10sub get_config_dir {"."}
11sub create_style {}
12
13sub debug {
14    warn "[DEBUG] ", shift, "\n" if $ENV{TEST_VERBOSE};
15}
16
17sub BarnOwl::Internal::new_command {}
18sub BarnOwl::Internal::new_variable_bool {}
19sub BarnOwl::Internal::new_variable_int {}
20sub BarnOwl::Internal::new_variable_string {}
21sub BarnOwl::Editwin::save_excursion(&) {}
22
23use BarnOwl;
24
251;
Note: See TracBrowser for help on using the repository browser.