lib.sh: Add perl support to generate().

[config/dotfiles.git] / tests / lib.sh.test

diff --git a/tests/lib.sh.test b/tests/lib.sh.test
index d3620cc14e6bc08424f783de91dded7d5fa6bc04..32bbd70c3d38f32c15bcfb4b693c1dfcbcaf4f4c 100644 (file)
--- a/tests/lib.sh.test
+++ b/tests/lib.sh.test
@@ -63,6 +63,14 @@ generate awk tmp/test-awk '{ print $1 }'
 # Remove the line with the current date as it changes every time.
 cat tmp/test-awk | grep -v "It was generated from tmp/test-awk.in"
 
+# Test generate() using perl.
+echo "Simple test fiel for generate() using perl.
+first second
+" > tmp/test-perl.in
+generate perl tmp/test-perl -p -e 's/first/best/'
+# Remove the line with the current date as it changes every time.
+cat tmp/test-perl | grep -v "It was generated from tmp/test-perl.in"
+
 # Test generate() using cat.
 echo "Simple test fiel for generate() using cat (simple copy).