A test framework for arch-perl
use Arch::Test::Framework; my $fw = Arch::Test::Framework->new; my $tree = $fw->make_tree($dir, $version); my $dir = $tree->add_dir; $tree->add_file($dir); $tree->import;
Arch::Test::Tree provides methods to quickly build and modify Arch project trees within the Arch::Test framework.
new, root, framework, run_tla, add_file, add_dir, add_link, modify_file, rename_file, rename_dir, remove_file, remove_dir, inventory, import, commit.
Create a new Arch::Test::Tree instance for path. This method should not be called directly.
Returns the project trees root directory.
Returns the associated Arch::Test::Framework reference. Run \*(C`tla @args\*(C' from the tree root.
Add a new file name in directory dir. Fill file with content. dir defaults to the project root (\*(C`.\*(C'). If name is not specified, a unique filename is generated. A default content is generated if none is given.
Add a new directory under parent, or \*(C`.\*(C' if parent is not specified. If name is not given, a unique name is generated.
Add a new symbolic link under parent, or \*(C`.\*(C' if parent is not specified. If name is not given, a unique name is generated. If target is omitted, a (probably) non-existing target is generated.
Change files content to content, or append \*(C`Has been modified.\*(C' if new content is omitted.
Rename file old to new. Returns new.
Rename directory old to new. Returns new.
Delete file and its associated arch id.
Recursively delete dir and its content.
Returns the inventory as generated by running \*(C`tla inventory flags\*(C'. flags default to \*(C`-Bs\*(C' if not specified.
Create a \*(C`base-0\*(C' revision from tree using the summary line summary and log as log text. If tree contains a log file, summary and log can be omitted.
Commit a \*(C`patch-n\*(C' revision from tree using the summary line summary and log as log text. If tree contains a log file, summary and log can be omitted.
Mikhael Goikhman ([email protected]\*(--Perl-GPL/arch-perl\*(--devel).
Enno Cramer ([email protected]/arch-perl\*(--devel).