oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set a trigger for the snippet. Update tests for snippet packing.

Browse source
This commit is contained in:
Colin Kuskie 2010-05-09 21:44:18 -07:00
parent 50b2b116eb
commit 7ba305109a
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Asset/Snippet.pm
View file

@ -34,6 +34,7 @@ property snippet => (
label => ['assetName','Asset_Snippet'], label => ['assetName','Asset_Snippet'],
hoverHelp => ['snippet description','Asset_Snippet'], hoverHelp => ['snippet description','Asset_Snippet'],
default => undef, default => undef,
trigger => \&_trigger_snippet,
); );
sub _trigger_snippet { sub _trigger_snippet {
my $self = shift; my $self = shift;

9
t/Asset/Snippet.t
View file

@ -16,7 +16,7 @@ use lib "$FindBin::Bin/../lib";
use WebGUI::Test; use WebGUI::Test;
use WebGUI::Session; use WebGUI::Session;
use Test::More tests => 21; # increment this value for each test you create use Test::More tests => 23; # increment this value for each test you create
use Test::Exception; use Test::Exception;
use WebGUI::Asset::Snippet; use WebGUI::Asset::Snippet;
@ -111,6 +111,12 @@ $snippet2->update({mimeType => 'text/javascript'});
$tag2->commit; $tag2->commit;
addToCleanup($tag2); addToCleanup($tag2);
$snippet2->snippet('uncompressable');
is $snippet2->snippetPacked, 'uncompressable', 'packed snippet content was set';
$snippet2->snippet("two\n\nwords");
is $snippet2->snippetPacked, "two words", '... and packed';
open my $JSFILE, WebGUI::Test->getTestCollateralPath('jquery.js') open my $JSFILE, WebGUI::Test->getTestCollateralPath('jquery.js')
or die "Unable to open jquery test collateral file: $!"; or die "Unable to open jquery test collateral file: $!";
my $jquery; my $jquery;
@ -120,6 +126,7 @@ my $jquery;
}; };
close $JSFILE; close $JSFILE;
$snippet2 = $snippet2->cloneFromDb;
is $snippet2->get('snippetPacked'), undef, 'no packed content'; is $snippet2->get('snippetPacked'), undef, 'no packed content';
lives_ok { $snippet2->update({snippet => $jquery}); } 'did not die during packing jquery'; lives_ok { $snippet2->update({snippet => $jquery}); } 'did not die during packing jquery';
ok $snippet2->get('snippetPacked'), 'snippet content was packed'; ok $snippet2->get('snippetPacked'), 'snippet content was packed';