#!perl -w

use strict;
use Test qw(plan ok skip);

plan tests => 15;

use Data::Dump::Ruby qw(dump_ruby quote_ruby);
$Data::Dump::Ruby::TRY_BASE64 = 0;

ok(dump_ruby(""), qq(""));
ok(dump_ruby("\n"), qq("\\n"));
ok(dump_ruby("\0\1\x1F\0" . 3), qq("\\0\\1\\37\\x003"));
ok(dump_ruby("xx" x 30), qq("x" * 60));
ok(dump_ruby("xy" x 30), qq("xy" * 30));
ok(dump_ruby("\0" x 1024), qq("\\0" * 1024));
ok(dump_ruby("\$" x 1024), qq("\\\$" * 1024));
ok(dump_ruby("\n" x (1024 * 1024)), qq("\\n" * 1048576));
ok(dump_ruby("\x7F\x80\xFF"), qq("\\x7F\\x80\\xFF"));
#ok(dump_ruby(join("", map chr($_), 0..127)), qq("\\0\\1\\2\\3\\4\\5\\6\\a\\b\\t\\n\\13\\f\\r\\16\\17\\20\\21\\22\\23\\24\\25\\26\\27\\30\\31\\32\\e\\34\\35\\36\\37 !\\"#\\\$%&'()*+,-./0123456789:;<=>?\\\@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\\x7F"));
#ok(dump_ruby(join("", map chr($_), 0..255)), qq(pack("H*","000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f202122232425262728292a2b2c2d2e2f303132333435363738393a3b3c3d3e3f404142434445464748494a4b4c4d4e4f505152535455565758595a5b5c5d5e5f606162636465666768696a6b6c6d6e6f707172737475767778797a7b7c7d7e7f808182838485868788898a8b8c8d8e8f909192939495969798999a9b9c9d9e9fa0a1a2a3a4a5a6a7a8a9aaabacadaeafb0b1b2b3b4b5b6b7b8b9babbbcbdbebfc0c1c2c3c4c5c6c7c8c9cacbcccdcecfd0d1d2d3d4d5d6d7d8d9dadbdcdddedfe0e1e2e3e4e5e6e7e8e9eaebecedeeeff0f1f2f3f4f5f6f7f8f9fafbfcfdfeff")));

#if (eval { require MIME::Base64 }) {
#    local $Data::Dump::PHP::TRY_BASE64 = 1;
#    ok(dump_ruby(join("", map chr($_), 0..255)), "base64_decode(\"AAECAwQFBgcICQoLDA0ODxAREhMUFRYXGBkaGxwdHh8gISIjJCUmJygpKissLS4vMDEyMzQ1Njc4OTo7PD0+P0BBQkNERUZHSElKS0xNTk9QUVJTVFVWV1hZWltcXV5fYGFiY2RlZmdoaWprbG1ub3BxcnN0dXZ3eHl6e3x9fn+AgYKDhIWGh4iJiouMjY6PkJGSk5SVlpeYmZqbnJ2en6ChoqOkpaanqKmqq6ytrq+wsbKztLW2t7i5uru8vb6/wMHCw8TFxsfIycrLzM3Oz9DR0tPU1dbX2Nna29zd3t/g4eLj5OXm5+jp6uvs7e7v8PHy8/T19vf4+fr7/P3+/w==\")");
#}
#else {
#    skip("MIME::Base64 missing", 1);
#}

ok(quote_ruby(""), qq(""));
ok(quote_ruby(42), qq("42"));
ok(quote_ruby([]) =~ /^"ARRAY\(/);
ok(quote_ruby('"'), qq("\\""));
ok(quote_ruby("\0" x 1024), join("", '"', ("\\0") x 1024, '"'));

# ruby-specific tests
ok(quote_ruby("\t\n\r\f\b\a\e"), "\"\\t\\n\\r\\f\\b\\a\\e\"");