\bsay[ (] results from the CPAN

\bsay[ (]

App-Fetchware

view release on metacpan or search on metacpan

t/App-Fetchware-new.t view on Meta::CPAN

        'checked prompt_for_other_options() specify some configuration options.');

    # The weird regex is just so it can match any possible configuration option,
    # because due to hashes being unordered I don't know which options are which
    # numbers without complicated parsing that I'm not doing.
    expect_like(qr/[\w .,?!]+/,
        'checked prompt_for_other_options() received a specifc config option.');
    expect_send('Some test value who cares',
        'checked prompt_for_other_options() specify a specific config option.');

    expect_like(qr/[\w .,?!]+/,
        'checked prompt_for_other_options() received a specifc config option.');
    expect_send('Some test value who cares',
        'checked prompt_for_other_options() specify a specific config option.');

    expect_like(qr/[\w .,?!]+/,
        'checked prompt_for_other_options() received a specifc config option.');
    expect_send('Some test value who cares',
        'checked prompt_for_other_options() specify a specific config option.');

    expect_quit();
    
};


subtest 'test get_mirrors() success' => sub {
    skip_all_unless_release_testing();

    plan(skip_all => 'Optional Test::Expect testing module not installed.')
        unless eval {require Test::Expect; Test::Expect->import(); 1;};

    # Disable Term::UI's AUTOREPLY for this subtest, because unless I use
    # something crazy like Test::Expect, this will have to be tested "manually."
    local $Term::UI::AUTOREPLY = 0;
    # Fix the "out of orderness" thanks to Test::Builder messing with
    # STD{OUT,ERR}.
    local $| = 1;

    # Have Expect tell me what it's doing for easier debugging.
    #$Expect::Exp_Internal = 1;

    expect_run(
        command => 't/App-Fetchware-new-get_mirrors',
        prompt => [-re => qr/: |\? /],
        quit => "\cC"
    );

    # First test that the command produced the correct outout.
    expect_like(qr/Fetchware requires you to please provide a mirror. This mirror is required,/,
        'checked add_mirror() received correct mirror prompt');

    # Have Expect print an example URL.
    expect_send('http://who.cares/whatever/',
        'check add_mirror() sent mirror URL.');

    # Check if upon receiving the URL the command prints out the next correct
    # prompt.
    expect_like(qr/Would you like to add any additional mirrors?/,
        'checked get_mirrors() received more mirrors prompt.');

    expect_send('N', 'checked get_mirrors() say No to more mirrors.');

    expect_quit();

    # Test answering Yes for more mirrors.

    expect_run(
        command => 't/App-Fetchware-new-get_mirrors',
        prompt => [-re => qr/: |\? /],
        quit => "\cC"
    );

    # First test that the command produced the correct outout.
    expect_like(qr/Fetchware requires you to please provide a mirror. This mirror is required,/,
        'checked add_mirror() received correct mirror prompt');

    # Have Expect print an example URL.
    expect_send('http://who.cares/whatever/',
        'check add_mirror() sent mirror URL.');

    # Check if upon receiving the URL the command prints out the next correct
    # prompt.
    expect_like(qr/Would you like to add any additional mirrors?/,
        'checked get_mirrors() received more mirrors prompt.');

    expect_send('Y', 'checked get_mirrors() say No to more mirrors.');

    expect_like(qr!\[y/N\]|Type in URL of mirror or done to continue!,
        'checked get_mirrors() received prompt to enter a mirror.');

    expect_send('ftp://afakemirror.blah/huh?',
        'checked get_mirrors() sent another mirror URL.');

    expect_like(qr/Type in URL of mirror or done to continue/,
        'checked get_mirrors() received prompt to enter a mirror.');

    expect_send('ftp://anotherfake.mirror/kasdjlfkjd',
        'checked get_mirrors() sent another mirror URL.');

    expect_like(qr/Type in URL of mirror or done to continue/,
        'checked get_mirrors() received prompt to enter a mirror.');

    expect_send('done',
        'checked get_mirrors() sent done.');

    expect_quit();
};


subtest 'test get_verification() success' => sub {
    skip_all_unless_release_testing();

    plan(skip_all => 'Optional Test::Expect testing module not installed.')
        unless eval {require Test::Expect; Test::Expect->import(); 1;};

    # Disable Term::UI's AUTOREPLY for this subtest, because unless I use
    # something crazy like Test::Expect, this will have to be tested "manually."
    local $Term::UI::AUTOREPLY = 0;
    # Fix the "out of orderness" thanks to Test::Builder messing with
    # STD{OUT,ERR}.
    local $| = 1;

    # Have Expect tell me what it's doing for easier debugging.
    #$Expect::Exp_Internal = 1;

    expect_run(
        command => 't/App-Fetchware-new-get_verification',
        prompt => [-re => qr/: |\? /],
        quit => "\cC"
    );

    # First test that the command produced the correct outout.
    expect_like(qr/Automatic KEYS file discovery failed. Fetchware needs the/,
        'checked get_verification() received correct mirror prompt');

    # Have Expect print an example URL.
    expect_send('Y',
        'check get_verification() sent manual KEYS file Y.');

    expect_like(qr<\[y/N\]|Automatic verification of your fetchware package has failed!>,
        'check get_verification() received no verify prompt.');

    expect_send('Y',
        'checked get_verification() sent no verify Y.');

href="/search?qci=&q=%5Cbsay%5B%20%28%5D&qft=&qd=App-Fetchware&qifl=&f=t%2FApp-Fetchware-new.t" title="grep on this file">t/App-Fetchware-new.t href="https://metacpan.org/release/App-Fetchware/source/t/App-Fetchware-new.t#L525" title="view on Meta::CPAN"> view on Meta::CPAN class="line-numbers" data-start="465" data-line="525,531,537,544,550,556,563">EOD = edit_manually($term, $fetchwarefile); 'App::Fetchware::Fetchwarefile', The code below that tests cmd_new() has *not* been updated yet to Fetchware refactor where cmd_new()'s behavior was moved into App::Fetchware the new API subroutines new() and new_install(). So, if you wish to test the below, you'll have to fix it up to work how new() works after the Also note, the code below has been copied and pasted to become with of t/App-Fetchware-new_install.t and even the updated to work with the t/bin-fetchware-new.t. 'test cmd_new() success' => sub { skip_all_unless_release_testing(); plan(skip_all => 'Optional Test::Expect testing module not installed.') unless eval {require Test::Expect; Test::Expect->import(); 1;}; # Disable Term::UI's AUTOREPLY for this subtest, because unless I use # something crazy like Test::Expect, this will have to be tested "manually." local $Term::UI::AUTOREPLY = 0; # Fix the "out of orderness" thanks to Test::Builder messing with # Have Expect tell me what it's doing for easier debugging. $Expect::Exp_Internal = 1; command => 't/bin-fetchware-new-cmd_new', prompt => [-re => qr/((?<!\? \[y\/N\]): |\? )/ms], #prompt => [-re => qr/(\?|:) \[y\/N\] |\? |: /ims], prompt => [-re => qr/((?:\?|:) \[y\/N\]: )|\? |: /i], prompt => [-re => qr/ \[y\/N\]: |\? |: /i], prompt => [-re => qr/\? \n/ims], quit => "\cC" # Have Expect restart its timeout anytime output is received. Should keep # expect from timeingout while it's waiting for Apache to compile. #my $exp = expect_handle(); #$exp->restart_timeout_upon_receive(1); # First test that the command produced the correct outout. expect_like(qr/Fetchware's new command is reasonably sophisticated, and is smart enough to/ms, 'checked cmd_new() received correct name prompt'); expect_send('Apache', 'check cmd_new() sent Apache as my name.'); expect_like(qr/Fetchware's heart and soul is its lookup_url. This is the configuration option/ms, 'checked cmd_new() received lookup_url prompt.'); expect_send("$ENV{FETCHWARE_HTTP_LOOKUP_URL}", 'checked cmd_new() say lookup_url.'); expect_like(qr/Fetchware requires you to please provide a mirror. This mirror is required,/ms, 'checked cmd_new() received mirror prompt.'); expect_send("$ENV{FETCHWARE_HTTP_MIRROR_URL}", 'checked cmd_new() say mirror.'); expect_like(qr/In addition to the one required mirror that you must define in order for/ms, 'checked cmd_new() received more mirrors prompt.'); expect_send('N', 'checked cmd_new() say N for more mirrors.'); #expect_like(qr!\[y/N\]|gpg digital signatures found. Using gpg verification.!ms, expect_like(qr!.*|gpg digital signatures found. Using gpg verification.!ms, 'checked cmd_new() received filter prompt.'); expect_send('httpd-2.2', 'checked cmd_new() say httpd-2.2 for filter option.'); expect_like(qr/Fetchware has many different configuration options that allow you to control its/ms, 'checked cmd_new() received extra config prompt.'); expect_send('N', 'checked cmd_new() say N for more config options prompt.'); expect_like(qr/Fetchware has now asked you all of the needed questions to determine what it/ms, 'checked cmd_new() received edit config prompt.'); expect_send('N', 'checked cmd_new() say N for edit config prompt.'); expect_like(qr/It is recommended that fetchware go ahead and install the program based on the/ms, 'checked cmd_new() received install program prompt.'); # Say no to avoid actually installing Apache yet again. expect_send('N', 'checked cmd_new() say N for install program prompt.'); this or comment it out, and specify the number of tests, because doing robust than using this, but this is better than no_plan.








        
        
        ( run in 1.325 second using v1.01-cache-2.11-cpan-d7a12ab2c7f )