"Fossies" - the Fresh Open Source Software Archive

Member "texinfo-6.5/tp/t/01use.t" (22 Apr 2014, 820 Bytes) of package /linux/misc/texinfo-6.5.tar.xz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 # Before `make install' is performed this script should be runnable with
    2 # `make test'. After `make install' it should work as `perl 01use.t'
    3 
    4 #########################
    5 
    6 use strict;
    7 
    8 use Test::More;
    9 use File::Spec;
   10 BEGIN { plan tests => 2;
   11         if (defined($ENV{'top_srcdir'})) {unshift @INC, File::Spec->catdir($ENV{'top_srcdir'}, 'tp');} }
   12 use Texinfo::Convert::Texinfo;
   13 ok(1, "modules loading"); # If we made it this far, we're ok.
   14 
   15 #########################
   16 
   17 # Insert your test code below, the Test::More module is use()ed here so read
   18 # its man page ( perldoc Test::More ) for help writing this test script.
   19 
   20 use vars qw($manual_tree $manual_tree_result);
   21 
   22 require 't/manual_tree.pl';
   23 
   24 is (Texinfo::Convert::Texinfo::convert($manual_tree), 
   25      $manual_tree_result, "tree_to_texi on a manually written tree");
   26