From 3d9bac43da5937235c962a53e68475f796c370aa Mon Sep 17 00:00:00 2001 From: Jay Berkenbilt Date: Mon, 2 May 2022 15:46:07 -0400 Subject: Add internal Pl_Base64 Bidirectional base64; will be used by JSON v2. --- libtests/qtest/base64.test | 58 ++++++++++++++++++++++++++++++++++++++++++++ libtests/qtest/base64/1.dec | 1 + libtests/qtest/base64/1.enc | 1 + libtests/qtest/base64/2.dec | 1 + libtests/qtest/base64/2.enc | 1 + libtests/qtest/base64/3.dec | 1 + libtests/qtest/base64/3.enc | 1 + libtests/qtest/base64/4.dec | 1 + libtests/qtest/base64/4.enc | 1 + libtests/qtest/base64/5.dec | Bin 0 -> 350 bytes libtests/qtest/base64/5.enc | 1 + 11 files changed, 67 insertions(+) create mode 100644 libtests/qtest/base64.test create mode 100644 libtests/qtest/base64/1.dec create mode 100644 libtests/qtest/base64/1.enc create mode 100644 libtests/qtest/base64/2.dec create mode 100644 libtests/qtest/base64/2.enc create mode 100644 libtests/qtest/base64/3.dec create mode 100644 libtests/qtest/base64/3.enc create mode 100644 libtests/qtest/base64/4.dec create mode 100644 libtests/qtest/base64/4.enc create mode 100644 libtests/qtest/base64/5.dec create mode 100644 libtests/qtest/base64/5.enc (limited to 'libtests/qtest') diff --git a/libtests/qtest/base64.test b/libtests/qtest/base64.test new file mode 100644 index 00000000..9e709c73 --- /dev/null +++ b/libtests/qtest/base64.test @@ -0,0 +1,58 @@ +#!/usr/bin/env perl +require 5.008; +use warnings; +use strict; + +chdir("base64") or die "chdir testdir failed: $!\n"; + +require TestDriver; + +my $td = new TestDriver('base64'); + +cleanup(); + +# ** Do not use normalize newlines on these tests. ** + +my $n = 5; +for (my $i = 1; $i <= $n; ++$i) +{ + $td->runtest("encode $i", + {$td->COMMAND => "base64 encode < $i.dec"}, + {$td->FILE => "$i.enc", $td->EXIT_STATUS => 0}); + $td->runtest("code $i", + {$td->COMMAND => "base64 decode < $i.enc"}, + {$td->FILE => "$i.dec", $td->EXIT_STATUS => 0}); +} + +$td->runtest("non-zero discard bits", + {$td->COMMAND => "echo c2FsYWR= | base64 decode"}, + {$td->STRING => "salad", $td->EXIT_STATUS => 0}); +$td->runtest("write with +/", + {$td->COMMAND => "echo +/== | base64 decode > a"}, + {$td->STRING => "", $td->EXIT_STATUS => 0}); +$td->runtest("write with -_", + {$td->COMMAND => "echo -_== | base64 decode > b"}, + {$td->STRING => "", $td->EXIT_STATUS => 0}); +$td->runtest("interchangeability of +/ and -_", + {$td->FILE => "a"}, + {$td->FILE => "b"}); + +$td->runtest("invalid characters", + {$td->COMMAND => "echo aaaaa! | base64 decode"}, + {$td->REGEXP => ".*invalid input.*", $td->EXIT_STATUS => 2}); +$td->runtest("invalid pad", + {$td->COMMAND => "echo a= | base64 decode"}, + {$td->REGEXP => ".*invalid input.*", $td->EXIT_STATUS => 2}); +$td->runtest("data after pad", + {$td->COMMAND => "echo aa==potato | base64 decode"}, + {$td->REGEXP => ".*data follows pad characters.*", + $td->EXIT_STATUS => 2}); + +cleanup(); + +$td->report(7 + (2 * $n)); + +sub cleanup +{ + unlink('a', 'b'); +} diff --git a/libtests/qtest/base64/1.dec b/libtests/qtest/base64/1.dec new file mode 100644 index 00000000..d800886d --- /dev/null +++ b/libtests/qtest/base64/1.dec @@ -0,0 +1 @@ +123 \ No newline at end of file diff --git a/libtests/qtest/base64/1.enc b/libtests/qtest/base64/1.enc new file mode 100644 index 00000000..e644af9e --- /dev/null +++ b/libtests/qtest/base64/1.enc @@ -0,0 +1 @@ +MTIz \ No newline at end of file diff --git a/libtests/qtest/base64/2.dec b/libtests/qtest/base64/2.dec new file mode 100644 index 00000000..274c0052 --- /dev/null +++ b/libtests/qtest/base64/2.dec @@ -0,0 +1 @@ +1234 \ No newline at end of file diff --git a/libtests/qtest/base64/2.enc b/libtests/qtest/base64/2.enc new file mode 100644 index 00000000..9c06465b --- /dev/null +++ b/libtests/qtest/base64/2.enc @@ -0,0 +1 @@ +MTIzNA== \ No newline at end of file diff --git a/libtests/qtest/base64/3.dec b/libtests/qtest/base64/3.dec new file mode 100644 index 00000000..11d0d991 --- /dev/null +++ b/libtests/qtest/base64/3.dec @@ -0,0 +1 @@ +This file has a multiple of four bytes and is longer than four bytes... diff --git a/libtests/qtest/base64/3.enc b/libtests/qtest/base64/3.enc new file mode 100644 index 00000000..6dd9347a --- /dev/null +++ b/libtests/qtest/base64/3.enc @@ -0,0 +1 @@ +VGhpcyBmaWxlIGhhcyBhIG11bHRpcGxlIG9mIGZvdXIgYnl0ZXMgYW5kIGlzIGxvbmdlciB0aGFuIGZvdXIgYnl0ZXMuLi4K \ No newline at end of file diff --git a/libtests/qtest/base64/4.dec b/libtests/qtest/base64/4.dec new file mode 100644 index 00000000..a5e2af49 --- /dev/null +++ b/libtests/qtest/base64/4.dec @@ -0,0 +1 @@ +This file has a non-multiple of four bytes and is longer than four bytes. diff --git a/libtests/qtest/base64/4.enc b/libtests/qtest/base64/4.enc new file mode 100644 index 00000000..e43b9c1f --- /dev/null +++ b/libtests/qtest/base64/4.enc @@ -0,0 +1 @@ +VGhpcyBmaWxlIGhhcyBhIG5vbi1tdWx0aXBsZSBvZiBmb3VyIGJ5dGVzIGFuZCBpcyBsb25nZXIgdGhhbiBmb3VyIGJ5dGVzLgo= \ No newline at end of file diff --git a/libtests/qtest/base64/5.dec b/libtests/qtest/base64/5.dec new file mode 100644 index 00000000..ed99eb1a Binary files /dev/null and b/libtests/qtest/base64/5.dec differ diff --git a/libtests/qtest/base64/5.enc b/libtests/qtest/base64/5.enc new file mode 100644 index 00000000..e399235c --- /dev/null +++ b/libtests/qtest/base64/5.enc @@ -0,0 +1 @@ +VGhpcyBmaWxlIGFzIG9uZSBvZiBldmVyeSBieXRlIGluIGl0LiBOb3QgdGhhdCBpdCByZWFsbHkgbWFrZXMgYW55CmRpZmZlcmVuY2UsIGJ1dCB3aHkgbm90LgoKAAECAwQFBgcICQoLDA0ODxAREhMUFRYXGBkaGxwdHh8gISIjJCUmJygpKissLS4vMDEyMzQ1Njc4OTo7PD0+P0BBQkNERUZHSElKS0xNTk9QUVJTVFVWV1hZWltcXV5fYGFiY2RlZmdoaWprbG1ub3BxcnN0dXZ3eHl6e3x9fn+AgYKDhIWGh4iJiouMjY6PkJGSk5SVlpeYmZqbnJ2en6ChoqOkpaanqKmqq6ytrq+wsbKztLW2t7i5uru8vb6/wMHCw8TFxsfIycrLzM3Oz9DR0tPU1dbX2Nna29zd3t/g4eLj5OXm5+jp6uvs7e7v8PHy8/T19vf4+fr7/P3+/wo= \ No newline at end of file -- cgit v1.2.3-54-g00ecf