sub Main {
    Tests();
#   RealProgram();
} ## end sub Main

sub Tests {
    require Test::More;
    Test::More->import( 'no_plan' );  ## and ok()...
    test_drops();
} ## end sub Tests

sub test_drops {
    chdir 'testdir';
    my $drops = red_dropdown_files( '.' );
    ok( int $drops =~ m{\Q<option value="chapter-8.pdf">\E}, 'drops works' );
} ## end sub test_drops