|
Packit |
574860 |
use TestML -run, -dev_test;
|
|
Packit |
574860 |
|
|
Packit |
574860 |
__DATA__
|
|
Packit |
574860 |
%TestML 1.0
|
|
Packit |
574860 |
|
|
Packit |
574860 |
Plan = 7;
|
|
Packit |
574860 |
|
|
Packit |
574860 |
Chdir('t/sample1');
|
|
Packit |
574860 |
RunCommand('make purge');
|
|
Packit |
574860 |
RunCommand('perl Makefile.PL');
|
|
Packit |
574860 |
RunCommand('make manifest');
|
|
Packit |
574860 |
manifest = Read('MANIFEST');
|
|
Packit |
574860 |
|
|
Packit |
574860 |
Label = 'MANIFEST has';
|
|
Packit |
574860 |
manifest ~~ "Makefile.PL";
|
|
Packit |
574860 |
manifest ~~ "lib/Sample1.pm";
|
|
Packit |
574860 |
manifest ~~ "MANIFEST";
|
|
Packit |
574860 |
|
|
Packit |
574860 |
Label = 'Manifest contains';
|
|
Packit |
574860 |
manifest.Has("MANIFEST.SKIP").Not.OK;
|
|
Packit |
574860 |
manifest.Has("ToDo").Not.OK;
|
|
Packit |
574860 |
manifest.Has(".DS_Store").Not.OK;
|
|
Packit |
574860 |
manifest.Has("Foo~").Not.OK;
|
|
Packit |
574860 |
|
|
Packit |
574860 |
RunCommand('make purge');
|
|
Packit |
574860 |
RunCommand('rm MANIFEST.SKIP');
|