Changeset 5aa33fd for t


Ignore:
Timestamp:
May 22, 2010, 10:37:25 PM (14 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:
1 edited

Legend:

Unmodified
Added
Removed
  • t/mock.pl

    r42ad917 r5aa33fd  
    1 use File::Basename;
    2 use lib (dirname($0) . '/../perl/lib');
    3 
    41package BarnOwl;
    52use strict;
    63use warnings;
    7 use Carp;
    84
    9 sub get_data_dir {"."}
    10 sub get_config_dir {"."}
    11 sub create_style {}
    12 
    13 sub debug {
     5no warnings 'redefine';
     6sub debug($) {
    147    warn "[DEBUG] ", shift, "\n" if $ENV{TEST_VERBOSE};
    158}
    169
    17 sub BarnOwl::Internal::new_command {}
    18 sub BarnOwl::Internal::new_variable_bool {}
    19 sub BarnOwl::Internal::new_variable_int {}
    20 sub BarnOwl::Internal::new_variable_string {}
    21 sub BarnOwl::Editwin::save_excursion(&) {}
    22 
    23 use BarnOwl;
    24 
    25101;
Note: See TracChangeset for help on using the changeset viewer.