t/utils.t

   1 #!/usr/bin/perl -w
   2 # Test utility functions to be sure they do something utilitiful
   3 use strict;
   4 use Test::More tests => 1;
   5 use OsChooser;
   6
   7 # Problematic...when run from harness, will not have tty
   8 ok(OsChooser::have_tty() == 1, "have_tty");
   9