File: 10-open.t

package info (click to toggle)
libbrowser-open-perl 0.04-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 96 kB
  • sloc: perl: 189; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 399 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!perl

BEGIN {
  unless ($ENV{AUTHOR_TESTING}) {
    require Test::More;
    Test::More::plan(skip_all => 'these tests are for testing by the author');
  }
}


use strict;
use warnings;
use Test::More;

use Browser::Open qw( open_browser );

my $ok = open_browser('http://127.0.0.1/');
ok(defined($ok), 'Found command to open a browser');
is($ok, 0, 'No problems running command');

done_testing();