#!/usr/bin/perl -w

use strict;
use warnings;

$| = 1;

use Test::More tests => 40;

for (1..10) {
    my @words = `perl randpass -c 01 -l 5000`;
    chomp @words;
    is( scalar(@words), 1, 'number of passwords' );
    like(   $words[0],  qr/^[01]{5000}$/, 'matches expected pattern' );
    unlike( $words[0],  qr/^0{5000}$/,    'not all zeros' );
    unlike( $words[0],  qr/^1{5000}$/,    'not all ones'  );
};