1 files changed, 84 insertions, 0 deletions
diff --git a/Godeps/_workspace/src/github.com/robertkrimen/otto/underscore/testify b/Godeps/_workspace/src/github.com/robertkrimen/otto/underscore/testify
new file mode 100644
index 000000000..7f6e0f7c1
--- /dev/null
+++ b/Godeps/_workspace/src/github.com/robertkrimen/otto/underscore/testify
@@ -0,0 +1,84 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+my $underscore_test = shift @ARGV || "";
+if (!-d $underscore_test) {
+    print <<_END_;
+Usage:
+
+    testify ./underscore/test
+
+    # Should look something like:
+    arrays.js
+    chaining.js
+    collections.js
+    functions.js
+    index.html
+    objects.js
+    speed.js
+    utility.js
+    vendor
+
+_END_
+    if ($underscore_test) {
+        die "!: Not a directory: $underscore_test\n"
+    }
+    exit;
+}
+
+chdir $underscore_test or die "!: $!";
+
+my @js = <*.js>;
+
+for my $file (@js) {
+    open my $fh, '<', $file or die "!: $!";
+    my $tests = join "", <$fh>;
+    my @tests = $tests =~ m/
+        ^(\s{2}test\(.*?
+        ^\s{2}}\);)$
+    /mgxs;
+    close $fh;
+    next unless @tests;
+    print "$file: ", scalar(@tests), "\n";
+    my $underscore_name = "underscore_$file";
+    $underscore_name =~ s/.js$//;
+    my $go_file = "${underscore_name}_test.go";
+    $go_file =~ s/.js$/.go/;
+    open $fh, '>', $go_file or die "!: $!";
+
+    $fh->print(<<_END_);
+package otto
+
+import (
+	"testing"
+)
+
+_END_
+
+    my $count = 0;
+    for my $test (@tests) {
+        $test =~ s/`([^`]+)`/<$1>/g;
+        my ($name) = $test =~ m/^\s*test\(['"]([^'"]+)['"]/;
+        $fh->print(<<_END_);
+// $name
+func Test_${underscore_name}_$count(t *testing.T) {
+    tt(t, func(){
+	    test := underscoreTest()
+
+	    test(`
+$test
+        `)
+    })
+}
+
+_END_
+        $count++;
+    }
+}
+
+#  test('#779 - delimeters are applied to unescaped text.', 1, function() {
+#    var template = _.template('<<\nx\n>>', null, {evaluate: /<<(.*?)>>/g});
+#    strictEqual(template(), '<<\nx\n>>');
+#  });