Test::Smoke - The Perl core test smoke suite


    use Test::Smoke;

    use vars qw( $VERSION );
    $VERSION = Test::Smoke->VERSION;

    read_config( $config_name ) or warn Test::Smoke->config_error; 


Test::Smoke exports $conf and read_config() by default.

Test::Smoke::read_config( $config_name )

Return the value of $ConfigError

is_win32( )

is_win32() returns true if $^O eq "MSWin32".

do_manifest_check( $ddir, $smoker )

do_manifest_check() uses Test::Smoke::SourceTree to do the MANIFEST check.

set_smoke_patchlevel( $ddir, $patch[, $verbose] )

Set the current patchlevel as a registered patch like "SMOKE$patch"

run_smoke( [$continue[, @df_buildopts]] )

run_smoke() sets up de build environment and gets the private Policy file and build configurations and then runs the smoke stuff for all configurations.

All arguments after the $continue are taken as default buildoptions and passed to ./Configure.

__get_ts_patchlevel( )

Read the contents of .patch.


$Id: 1055 2007-08-11 11:32:32Z abeltje $


(c) 2003, All rights reserved.

  * Abe Timmerman <>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.


This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.