source: t/mock.pl @ 0e5afa2

release-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 0e5afa2 was 776c4bb, checked in by Nelson Elhage <nelhage@mit.edu>, 15 years ago
Mock enough of perlglue.xs for tests to 'use BarnOwl'.
  • Property mode set to 100644
File size: 504 bytes
Line 
1use File::Basename;
2use lib (dirname($0) . '/../perl/lib');
3
4package BarnOwl;
5use strict;
6use warnings;
7use Carp;
8
9sub bootstrap {}
10sub get_data_dir {"."}
11sub get_config_dir {"."}
12sub create_style {}
13
14sub debug {
15    warn "[DEBUG] ", shift, "\n" if $ENV{TEST_VERBOSE};
16}
17
18sub BarnOwl::Internal::new_command {}
19sub BarnOwl::Internal::new_variable_bool {}
20sub BarnOwl::Internal::new_variable_int {}
21sub BarnOwl::Internal::new_variable_string {}
22sub BarnOwl::Editwin::save_excursion(&) {}
23
24use BarnOwl;
25
261;
Note: See TracBrowser for help on using the repository browser.