Add tests for nqp::encoderep and the windows-1252 encoding

Author: pmurias

t/nqp/082-decode.t

@@ -1,6 +1,6 @@
 use nqpmo;
 
-plan(8);
+plan(13);
 
 
 my sub create_buf($type) {
@@ -42,10 +42,30 @@ sub buf_dump($buf) {
 is(buf_dump($hello), "72,101,108,108,111,32,87,111,114,108,100", "Hello World is encoded to utf8 correctly");
 is(nqp::decode($hello, "utf8"), "Hello World", "round-tripping Hello World");
 
+my str $windows_1252_str := '€‚ƒ„…†‡ˆ‰Š‹ŒŽ';
+my $windows_1252_encoded := nqp::encode($windows_1252_str, 'windows-1252', $buf8.new);
+is(
+    buf_dump($windows_1252_encoded),
+    '128,130,131,132,133,134,135,136,137,138,139,140,142',
+    'cp1252 encodes most C1 substitutes'
+);
+
+is(nqp::decode($windows_1252_encoded, 'windows-1252'), $windows_1252_str, "round-tripping windows-1252 str");
+
 my $hello2 := $buf8.new;
 nqp::encode('Hello World', 'utf8', $hello2);
 is(buf_dump($hello2), "72,101,108,108,111,32,87,111,114,108,100", "the buf passed to nqp::encode is actually changed");
 
+my $replaced_ascii := nqp::encoderep('åfooåbar', 'ascii', 'XXX', $buf8.new);
+is(nqp::decode($replaced_ascii, "utf8"), 'XXXfooXXXbar', 'nqp::encoderep works with ascii');
+
+my $replaced_latin1 := nqp::encoderep('☃foo☃barå', 'iso-8859-1', 'XXX', $buf8.new);
+is(nqp::decode($replaced_latin1, 'iso-8859-1'), 'XXXfooXXXbarå', 'nqp::encoderep works with latin1');
+
+my $replaced_windows1252 := nqp::encoderep('☃foo☃barå', 'windows-1252', 'XXX', $buf8.new);
+is(nqp::decode($replaced_latin1, 'windows-1252'), 'XXXfooXXXbarå', 'nqp::encoderep works with windows-1252');
+
+
 my $pi_unsigned := $buf8.new;
 nqp::push_i($pi_unsigned, 207);
 nqp::push_i($pi_unsigned, 128);