#!/usr/bin/perl

use warnings;
use strict;
use Test::More tests => 2;
use Test::Output;

require_ok( "./sample.pl");

is(&usage(), "
Usage: sample.pl [-h] hostname

    [ -h ]    print this help message 
", 'check usage message');

done_testing();