From 9fb805525c47af7276d9fea85990d8a1d952d384 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Fri, 15 Sep 2006 21:22:48 +0000 Subject: [PATCH] skeleton tests for macros to get them into the coverage report --- t/Macro/Execute.t | 37 +++++++++++++++++++++++++++ t/Macro/RandomAssetProxy.t | 37 +++++++++++++++++++++++++++ t/Macro/RandomThread.t | 37 +++++++++++++++++++++++++++ t/Macro/SubscriptionItem.t | 37 +++++++++++++++++++++++++++ t/Macro/SubscriptionItemPurchaseUrl.t | 37 +++++++++++++++++++++++++++ 5 files changed, 185 insertions(+) create mode 100644 t/Macro/Execute.t create mode 100644 t/Macro/RandomAssetProxy.t create mode 100644 t/Macro/RandomThread.t create mode 100644 t/Macro/SubscriptionItem.t create mode 100644 t/Macro/SubscriptionItemPurchaseUrl.t diff --git a/t/Macro/Execute.t b/t/Macro/Execute.t new file mode 100644 index 000000000..8fdb6b3b9 --- /dev/null +++ b/t/Macro/Execute.t @@ -0,0 +1,37 @@ +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2006 Plain Black Corporation. +#------------------------------------------------------------------- +# Please read the legal notices (docs/legal.txt) and the license +# (docs/license.txt) that came with this distribution before using +# this software. +#------------------------------------------------------------------- +# http://www.plainblack.com info@plainblack.com +#------------------------------------------------------------------- + +use FindBin; +use strict; +use lib "$FindBin::Bin/../lib"; + +use WebGUI::Test; +use WebGUI::Session; +use HTML::TokeParser; + +use Test::More; # increment this value for each test you create + +my $session = WebGUI::Test->session; + +my $numTests = 0; + +$numTests += 1; #For the use_ok + +plan tests => $numTests; + +my $macro = 'WebGUI::Macro::Execute'; +my $loaded = use_ok($macro); + +SKIP: { + +skip "Unable to load $macro", $numTests-1 unless $loaded; + +} + diff --git a/t/Macro/RandomAssetProxy.t b/t/Macro/RandomAssetProxy.t new file mode 100644 index 000000000..9caf67653 --- /dev/null +++ b/t/Macro/RandomAssetProxy.t @@ -0,0 +1,37 @@ +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2006 Plain Black Corporation. +#------------------------------------------------------------------- +# Please read the legal notices (docs/legal.txt) and the license +# (docs/license.txt) that came with this distribution before using +# this software. +#------------------------------------------------------------------- +# http://www.plainblack.com info@plainblack.com +#------------------------------------------------------------------- + +use FindBin; +use strict; +use lib "$FindBin::Bin/../lib"; + +use WebGUI::Test; +use WebGUI::Session; +use HTML::TokeParser; + +use Test::More; # increment this value for each test you create + +my $session = WebGUI::Test->session; + +my $numTests = 0; + +$numTests += 1; #For the use_ok + +plan tests => $numTests; + +my $macro = 'WebGUI::Macro::RandomAssetProxy'; +my $loaded = use_ok($macro); + +SKIP: { + +skip "Unable to load $macro", $numTests-1 unless $loaded; + +} + diff --git a/t/Macro/RandomThread.t b/t/Macro/RandomThread.t new file mode 100644 index 000000000..cd750d01f --- /dev/null +++ b/t/Macro/RandomThread.t @@ -0,0 +1,37 @@ +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2006 Plain Black Corporation. +#------------------------------------------------------------------- +# Please read the legal notices (docs/legal.txt) and the license +# (docs/license.txt) that came with this distribution before using +# this software. +#------------------------------------------------------------------- +# http://www.plainblack.com info@plainblack.com +#------------------------------------------------------------------- + +use FindBin; +use strict; +use lib "$FindBin::Bin/../lib"; + +use WebGUI::Test; +use WebGUI::Session; +use HTML::TokeParser; + +use Test::More; # increment this value for each test you create + +my $session = WebGUI::Test->session; + +my $numTests = 0; + +$numTests += 1; #For the use_ok + +plan tests => $numTests; + +my $macro = 'WebGUI::Macro::RandomThread'; +my $loaded = use_ok($macro); + +SKIP: { + +skip "Unable to load $macro", $numTests-1 unless $loaded; + +} + diff --git a/t/Macro/SubscriptionItem.t b/t/Macro/SubscriptionItem.t new file mode 100644 index 000000000..4b1583e28 --- /dev/null +++ b/t/Macro/SubscriptionItem.t @@ -0,0 +1,37 @@ +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2006 Plain Black Corporation. +#------------------------------------------------------------------- +# Please read the legal notices (docs/legal.txt) and the license +# (docs/license.txt) that came with this distribution before using +# this software. +#------------------------------------------------------------------- +# http://www.plainblack.com info@plainblack.com +#------------------------------------------------------------------- + +use FindBin; +use strict; +use lib "$FindBin::Bin/../lib"; + +use WebGUI::Test; +use WebGUI::Session; +use HTML::TokeParser; + +use Test::More; # increment this value for each test you create + +my $session = WebGUI::Test->session; + +my $numTests = 0; + +$numTests += 1; #For the use_ok + +plan tests => $numTests; + +my $macro = 'WebGUI::Macro::SubscriptionItem'; +my $loaded = use_ok($macro); + +SKIP: { + +skip "Unable to load $macro", $numTests-1 unless $loaded; + +} + diff --git a/t/Macro/SubscriptionItemPurchaseUrl.t b/t/Macro/SubscriptionItemPurchaseUrl.t new file mode 100644 index 000000000..8a002a5e6 --- /dev/null +++ b/t/Macro/SubscriptionItemPurchaseUrl.t @@ -0,0 +1,37 @@ +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2006 Plain Black Corporation. +#------------------------------------------------------------------- +# Please read the legal notices (docs/legal.txt) and the license +# (docs/license.txt) that came with this distribution before using +# this software. +#------------------------------------------------------------------- +# http://www.plainblack.com info@plainblack.com +#------------------------------------------------------------------- + +use FindBin; +use strict; +use lib "$FindBin::Bin/../lib"; + +use WebGUI::Test; +use WebGUI::Session; +use HTML::TokeParser; + +use Test::More; # increment this value for each test you create + +my $session = WebGUI::Test->session; + +my $numTests = 0; + +$numTests += 1; #For the use_ok + +plan tests => $numTests; + +my $macro = 'WebGUI::Macro::SubscriptionItemPurchaseUrl'; +my $loaded = use_ok($macro); + +SKIP: { + +skip "Unable to load $macro", $numTests-1 unless $loaded; + +} +