t/return.t

   1 #!/usr/bin/perl -w
   2 # These tests just check to be sure all functions return something
   3 # It doesn't care what it is returned...so garbage can still pass,
   4 # as long as the garbage is the right data type.
   5
   6 use strict;
   7 use Test::More tests => 3;
   8
   9 use_ok( 'OsChooser' );
  10
  11 isa_ok(\OsChooser::have_tty(), 'SCALAR');
  12 isa_ok(\OsChooser::has_command("cp"), 'SCALAR');
  13
  14 # Don't know how to test the return from a die exception
  15 # Maybe use Test::Exception and put this into another test file
  16 #isa_ok(OsChooser::main(), 'SCALAR');