Timd: Text replace - 'Category:Libraries' to 'Category:Studio:Libraries'

2009-08-20T23:25:31Z

Text replace - 'Category:Libraries' to 'Category:Studio:Libraries'

← Older revision		Revision as of 23:25, 20 August 2009
Line 106:		Line 106:
	:Text of the comment to be added.		:Text of the comment to be added.

	[[Category:Libraries]]		[[Category:Studio:Libraries]]

Timd: TestCase.pm moved to Studio:TestCase.pm

2009-08-18T22:05:17Z

TestCase.pm moved to Studio:TestCase.pm

← Older revision	Revision as of 22:05, 18 August 2009
(No difference)

Timd at 23:44, 9 December 2008

2008-12-09T23:44:09Z

← Older revision		Revision as of 23:44, 9 December 2008
Line 105:		Line 105:
	;$comment		;$comment
	:Text of the comment to be added.		:Text of the comment to be added.

			[[Category:Libraries]]

Timd: New page: ==Example== use strict; use warnings; use diagnostics; use Carp; use Win32::TieRegistry(Delimiter=>"/"); use File::Spec; use Win32::OLE; Win32::OLE->Option(Warn => 3);...

2008-12-09T23:43:16Z

New page: ==Example== <source lang="perl"> use strict; use warnings; use diagnostics; use Carp; use Win32::TieRegistry(Delimiter=>"/"); use File::Spec; use Win32::OLE; Win32::OLE->Option(Warn => 3);...

New page

==Example==
<source lang="perl">
use strict;
use warnings;
use diagnostics;
use Carp;
use Win32::TieRegistry(Delimiter=>"/");
use File::Spec;
use Win32::OLE;
Win32::OLE->Option(Warn => 3);

# setup the lib path
use vars qw(
$studio
$testSuite
$ascript
$StrideDir
$StrideLibDir
);
BEGIN {
$StrideDir =
$Registry->{"LMachine/SOFTWARE/S2 Technologies/STRIDE/InstallDir"} ||
$ENV{'STRIDE_DIR'} ||
'C:\\STRIDE';
$StrideLibDir = File::Spec->catdir($StrideDir, 'lib', 'perl');
}

###############################
# Imported Libs
###############################
use lib $StrideLibDir; # Use the above calculated path to finf the lib's

use S2S::TestCase;

$main::testSuite->Tests->RemoveAll();

my $tc1 = S2S::TestCase->new('testcase 1', 'description: testcase 1');
$tc1->passTest();

my $tc2 = S2S::TestCase->new('testcase 2', 'description: testcase 2');
$tc2->addInfo('Separate info comment');
$tc2->passTest('info comment gets added');

my $tc3 = S2S::TestCase->new('testcase 3', 'description: testcase 3');
$tc3->failTest();

my $tc4 = S2S::TestCase->new('testcase 4', 'description: testcase 4');
$tc4->addError('Separate error comment');
$tc4->failTest('error comment gets added');
</source>

==Description==
This module provides a thin wrapper over the reporter::TestCase object to provide some convenience functions.

==Instance Methods==

===<code>new($name[, $description, $parentsuite])</code>===

Creates an instance of the TestCase object, performing the following:

* Creates a new test case with the name as specified by the $name argument as a child of the specified $parentsuite. (Or if the specified test case already exists, uses it.)

* Sets the test case description using the $description argument; if the test case already exists and has a non-empty description, $description is appended to the existing text.

;$name
:Name of the test case to be wrapped by this object; if the test case already exists as a child of $parentsuite, it will be used, otherwise a new test case is created.

;$description
:[optional] Description to be added to the specified test case, If the test case already exists and has a non-empty description, $description will be appended to the existing text with a ' | ' separator.

;$parentsuite
:[optional] Parent suite of the target test. If omitted this value defaults to $main::testSuite, which is the suite corresponding to the workspace folder that the using script belongs to.

===<code>getInternalTestCase()</code>===

Returns the Resporter::TestCase object wrapped by this object

===<code>failTest([$failMessage])</code>===

Sets the status of the wrapped testcase to "FAIL" and optionally adds an Error comment

;$failMessage
:[optional] If provided, this string will be added as a comment to the test case with the label "Error".

===<code>passTest([$passMessage])</code>===

Sets the status of the wrapped testcase to "PASS" and optionally adds an Info comment.

;$passMessage
:[optional] If provided, this string will be added as a comment to the test case with the label "Infor".

===<code>addError([$comment])</code>===

Adds a text comment to the test case with the label "Error".

;$comment
:Text of the comment to be added.

===<code>addInfo([$comment])</code>===

Adds a text comment to the test case with the label "Info".

;$comment
:Text of the comment to be added.

Studio:TestCase.pm - Revision history

Timd: Text replace - 'Category:Libraries' to 'Category:Studio:Libraries'

Timd: TestCase.pm moved to Studio:TestCase.pm

Timd at 23:44, 9 December 2008

Timd: New page: ==Example== use strict; use warnings; use diagnostics; use Carp; use Win32::TieRegistry(Delimiter=>"/"); use File::Spec; use Win32::OLE; Win32::OLE->Option(Warn => 3);...