From 7ba305109a62bd2690bc2cac0c1c520fcf7a8012 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 9 May 2010 21:44:18 -0700
Subject: [PATCH] Set a trigger for the snippet.  Update tests for snippet
 packing.

---
 lib/WebGUI/Asset/Snippet.pm | 1 +
 t/Asset/Snippet.t           | 9 ++++++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset/Snippet.pm b/lib/WebGUI/Asset/Snippet.pm
index 8567c0ad8..e10c1c8e7 100644
--- a/lib/WebGUI/Asset/Snippet.pm
+++ b/lib/WebGUI/Asset/Snippet.pm
@@ -34,6 +34,7 @@ property snippet => (
 	label           => ['assetName','Asset_Snippet'],
 	hoverHelp       => ['snippet description','Asset_Snippet'],
     default         => undef,
+    trigger         => \&_trigger_snippet,
 );
 sub _trigger_snippet {
     my $self = shift;
diff --git a/t/Asset/Snippet.t b/t/Asset/Snippet.t
index 5449c3315..fcfd363d5 100644
--- a/t/Asset/Snippet.t
+++ b/t/Asset/Snippet.t
@@ -16,7 +16,7 @@ use lib "$FindBin::Bin/../lib";
 
 use WebGUI::Test;
 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 WebGUI::Asset::Snippet;
 
@@ -111,6 +111,12 @@ $snippet2->update({mimeType => 'text/javascript'});
 $tag2->commit;
 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')
     or die "Unable to open jquery test collateral file: $!";
 my $jquery;
@@ -120,6 +126,7 @@ my $jquery;
 };
 close $JSFILE;
 
+$snippet2 = $snippet2->cloneFromDb;
 is $snippet2->get('snippetPacked'), undef, 'no packed content';
 lives_ok { $snippet2->update({snippet => $jquery}); } 'did not die during packing jquery';
 ok $snippet2->get('snippetPacked'), 'snippet content was packed';