#!/usr/bin/perl

use Test::More;
use Capture::Tiny qw/capture_stdout/;

BEGIN { use_ok( 'Net::Gmail::IMAP::Label' ); }
require_ok( 'Net::Gmail::IMAP::Label' );

# test --help
@ARGV = qw/-h/;
my $usage_msg = capture_stdout { Net::Gmail::IMAP::Label->run  };

like($usage_msg, qr/--help/, 'has --help option');
like($usage_msg, qr/--port/, 'has --port option');
like($usage_msg, qr/--verbose/, 'has --verbose option');

done_testing;