mime_base64.t

#!./parrot
# Copyright (C) 2006-2010, Parrot Foundation.
# $Id$

=head1 NAME

t/library/mime_base64.t - test [ 'MIME'; 'Base64' ]

=head1 SYNOPSIS

    % prove t/library/mime_base64.t

=head1 DESCRIPTION

Test [ 'MIME'; 'Base64' ]
Test cases taken from base64.t of MIME::Base64.

=cut

.sub test :main
    load_bytecode "dumper.pbc"
    load_bytecode 'Test/More.pbc'
    load_bytecode 'MIME/Base64.pbc'
    load_bytecode 'PGE.pbc'
    load_bytecode 'PGE/Util.pbc'
    load_bytecode 'compilers/json/JSON.pbc'

    .local pmc plan, is, ok
    plan = get_hll_global [ 'Test'; 'More' ], 'plan'
    is   = get_hll_global [ 'Test'; 'More' ], 'is'
    ok   = get_hll_global [ 'Test'; 'More' ], 'ok'

    plan(550)

    .local pmc JSON
    JSON = compreg "JSON"

    .local pmc encode_decode_tests, decode_tests
    encode_decode_tests = JSON( <<'END_JSON' )
[ ["Hello, World!\n","SGVsbG8sIFdvcmxkIQo="],
  ["\u0000","AA=="],
  ["\u0001","AQ=="],
  ["\u0002","Ag=="],
  ["\u0003","Aw=="],
  ["\u0004","BA=="],
  ["\u0005","BQ=="],
  ["\u0006","Bg=="],
  ["\u0007","Bw=="],
  ["\b","CA=="],
  ["\t","CQ=="],
  ["\n","Cg=="],
  ["\u000b","Cw=="],
  ["\f","DA=="],
  ["\r","DQ=="],
  ["\u000e","Dg=="],
  ["\u000f","Dw=="],
  ["\u0010","EA=="],
  ["\u0011","EQ=="],
  ["\u0012","Eg=="],
  ["\u0013","Ew=="],
  ["\u0014","FA=="],
  ["\u0015","FQ=="],
  ["\u0016","Fg=="],
  ["\u0017","Fw=="],
  ["\u0018","GA=="],
  ["\u0019","GQ=="],
  ["\u001a","Gg=="],
  ["\u001b","Gw=="],
  ["\u001c","HA=="],
  ["\u001d","HQ=="],
  ["\u001e","Hg=="],
  ["\u001f","Hw=="],
  [" ","IA=="],
  ["!","IQ=="],
  ["\"","Ig=="],
  ["#","Iw=="],
  ["$","JA=="],
  ["%","JQ=="],
  ["&","Jg=="],
  ["'","Jw=="],
  ["(","KA=="],
  [")","KQ=="],
  ["*","Kg=="],
  ["+","Kw=="],
  [",","LA=="],
  ["-","LQ=="],
  [".","Lg=="],
  ["/","Lw=="],
  ["0","MA=="],
  ["1","MQ=="],
  ["2","Mg=="],
  ["3","Mw=="],
  ["4","NA=="],
  ["5","NQ=="],
  ["6","Ng=="],
  ["7","Nw=="],
  ["8","OA=="],
  ["9","OQ=="],
  [":","Og=="],
  [";","Ow=="],
  ["<","PA=="],
  ["=","PQ=="],
  [">","Pg=="],
  ["?","Pw=="],
  ["@","QA=="],
  ["A","QQ=="],
  ["B","Qg=="],
  ["C","Qw=="],
  ["D","RA=="],
  ["E","RQ=="],
  ["F","Rg=="],
  ["G","Rw=="],
  ["H","SA=="],
  ["I","SQ=="],
  ["J","Sg=="],
  ["K","Sw=="],
  ["L","TA=="],
  ["M","TQ=="],
  ["N","Tg=="],
  ["O","Tw=="],
  ["P","UA=="],
  ["Q","UQ=="],
  ["R","Ug=="],
  ["S","Uw=="],
  ["T","VA=="],
  ["U","VQ=="],
  ["V","Vg=="],
  ["W","Vw=="],
  ["X","WA=="],
  ["Y","WQ=="],
  ["Z","Wg=="],
  ["[","Ww=="],
  ["\\","XA=="],
  ["]","XQ=="],
  ["^","Xg=="],
  ["_","Xw=="],
  ["`","YA=="],
  ["a","YQ=="],
  ["b","Yg=="],
  ["c","Yw=="],
  ["d","ZA=="],
  ["e","ZQ=="],
  ["f","Zg=="],
  ["g","Zw=="],
  ["h","aA=="],
  ["i","aQ=="],
  ["j","ag=="],
  ["k","aw=="],
  ["l","bA=="],
  ["m","bQ=="],
  ["n","bg=="],
  ["o","bw=="],
  ["p","cA=="],
  ["q","cQ=="],
  ["r","cg=="],
  ["s","cw=="],
  ["t","dA=="],
  ["u","dQ=="],
  ["v","dg=="],
  ["w","dw=="],
  ["x","eA=="],
  ["y","eQ=="],
  ["z","eg=="],
  ["{","ew=="],
  ["|","fA=="],
  ["}","fQ=="],
  ["~","fg=="],
  ["","fw=="],
  ["€","gA=="],
  ["","gQ=="],
  ["‚","gg=="],
  ["ƒ","gw=="],
  ["„","hA=="],
  ["…","hQ=="],
  ["†","hg=="],
  ["‡","hw=="],
  ["ˆ","iA=="],
  ["‰","iQ=="],
  ["Š","ig=="],
  ["‹","iw=="],
  ["Œ","jA=="],
  ["","jQ=="],
  ["Ž","jg=="],
  ["","jw=="],
  ["","kA=="],
  ["‘","kQ=="],
  ["’","kg=="],
  ["“","kw=="],
  ["”","lA=="],
  ["•","lQ=="],
  ["–","lg=="],
  ["—","lw=="],
  ["˜","mA=="],
  ["™","mQ=="],
  ["š","mg=="],
  ["›","mw=="],
  ["œ","nA=="],
  ["","nQ=="],
  ["ž","ng=="],
  ["Ÿ","nw=="],
  [" ","oA=="],
  ["¡","oQ=="],
  ["¢","og=="],
  ["£","ow=="],
  ["¤","pA=="],
  ["¥","pQ=="],
  ["¦","pg=="],
  ["§","pw=="],
  ["¨","qA=="],
  ["©","qQ=="],
  ["ª","qg=="],
  ["«","qw=="],
  ["¬","rA=="],
  ["­","rQ=="],
  ["®","rg=="],
  ["¯","rw=="],
  ["°","sA=="],
  ["±","sQ=="],
  ["²","sg=="],
  ["³","sw=="],
  ["´","tA=="],
  ["µ","tQ=="],
  ["¶","tg=="],
  ["·","tw=="],
  ["¸","uA=="],
  ["¹","uQ=="],
  ["º","ug=="],
  ["»","uw=="],
  ["¼","vA=="],
  ["½","vQ=="],
  ["¾","vg=="],
  ["¿","vw=="],
  ["À","wA=="],
  ["Á","wQ=="],
  ["Â","wg=="],
  ["Ã","ww=="],
  ["Ä","xA=="],
  ["Å","xQ=="],
  ["Æ","xg=="],
  ["Ç","xw=="],
  ["È","yA=="],
  ["É","yQ=="],
  ["Ê","yg=="],
  ["Ë","yw=="],
  ["Ì","zA=="],
  ["Í","zQ=="],
  ["Î","zg=="],
  ["Ï","zw=="],
  ["Ð","0A=="],
  ["Ñ","0Q=="],
  ["Ò","0g=="],
  ["Ó","0w=="],
  ["Ô","1A=="],
  ["Õ","1Q=="],
  ["Ö","1g=="],
  ["×","1w=="],
  ["Ø","2A=="],
  ["Ù","2Q=="],
  ["Ú","2g=="],
  ["Û","2w=="],
  ["Ü","3A=="],
  ["Ý","3Q=="],
  ["Þ","3g=="],
  ["ß","3w=="],
  ["à","4A=="],
  ["á","4Q=="],
  ["â","4g=="],
  ["ã","4w=="],
  ["ä","5A=="],
  ["å","5Q=="],
  ["æ","5g=="],
  ["ç","5w=="],
  ["è","6A=="],
  ["é","6Q=="],
  ["ê","6g=="],
  ["ë","6w=="],
  ["ì","7A=="],
  ["í","7Q=="],
  ["î","7g=="],
  ["ï","7w=="],
  ["ð","8A=="],
  ["ñ","8Q=="],
  ["ò","8g=="],
  ["ó","8w=="],
  ["ô","9A=="],
  ["õ","9Q=="],
  ["ö","9g=="],
  ["÷","9w=="],
  ["ø","+A=="],
  ["ù","+Q=="],
  ["ú","+g=="],
  ["û","+w=="],
  ["ü","/A=="],
  ["ý","/Q=="],
  ["þ","/g=="],
  ["ÿ","/w=="],
  ["\u0000ÿ","AP8="],
  ["ÿ\u0000","/wA="],
  ["\u0000\u0000\u0000","AAAA"],
  ["",""],
  ["a","YQ=="],
  ["aa","YWE="],
  ["aaa","YWFh"],
  ["aaa","YWFh"],
  ["aaa","YWFh"],
  ["aaa","YWFh"],
  ["Aladdin:open sesame","QWxhZGRpbjpvcGVuIHNlc2FtZQ=="],
  ["aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa","YWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYQ=="],
  ["Multipurpose Internet Mail Extensions: The Base64 Content-Transfer-Encoding is designed to represent sequences of octets in a form that is not humanly readable. ","TXVsdGlwdXJwb3NlIEludGVybmV0IE1haWwgRXh0ZW5zaW9uczogVGhlIEJhc2U2NCBDb250ZW50LVRyYW5zZmVyLUVuY29kaW5nIGlzIGRlc2lnbmVkIHRvIHJlcHJlc2VudCBzZXF1ZW5jZXMgb2Ygb2N0ZXRzIGluIGEgZm9ybSB0aGF0IGlzIG5vdCBodW1hbmx5IHJlYWRhYmxlLiA="]
]
END_JSON

    decode_tests = JSON( <<'END_JSON' )
[ ["YWE=","aa"],
  [" YWE=","aa"],
  ["Y WE=","aa"],
  ["YWE= ","aa"],
  ["Y\nW\r\nE=","aa"],
  ["YWE=====","aa"],
  ["YWE","aa"],
  ["YWFh====","aaa"],
  ["YQ","a"],
  ["",""]
]
END_JSON

# TODO: These decoding tests seem to cause weird output
# ["Y",""],
# ["x==",""],

    .local int cnt
    cnt = 0
    .local pmc test_iterator, test_case
    .local string plain, base64, comment, comment_cnt

    test_iterator = iter encode_decode_tests
    enc_dec_loop:
        unless test_iterator goto enc_dec_loop_end
        test_case   = shift test_iterator
        plain       = shift test_case
        base64      = shift test_case
        comment     = 'encode'
        comment_cnt = cnt
        concat comment, comment_cnt
        test_encode( plain, base64, comment )
        comment     = 'decode'
        comment_cnt = cnt
        concat comment, comment_cnt
        test_decode( plain, base64, comment )
        inc cnt
    goto enc_dec_loop
    enc_dec_loop_end:

    test_iterator = iter decode_tests
    dec_loop:
        unless test_iterator goto dec_loop_end
        test_case   = shift test_iterator
        base64      = shift test_case
        plain       = shift test_case
        comment     = 'decode'
        comment_cnt = cnt
        concat comment, comment_cnt
        test_decode( plain, base64, comment )
        inc cnt
    goto dec_loop
    dec_loop_end:

.end

.sub test_encode
    .param string plain
    .param string base64
    .param string comment

    .local pmc enc_sub
    enc_sub = get_global [ "MIME"; "Base64" ], 'encode_base64'

    .local pmc is
    is   = get_hll_global [ 'Test'; 'More' ], 'is'

    .local string result_encode
    result_encode = enc_sub( plain )
    is( result_encode, base64, comment )
.end


.sub test_decode
    .param string plain
    .param string base64
    .param string comment

    .local pmc dec_sub
    dec_sub = get_global [ "MIME"; "Base64" ], 'decode_base64'

    .local pmc eight_to_six
    eight_to_six = get_global 'eight_to_six'

    .local pmc is
    is   = get_hll_global [ 'Test'; 'More' ], 'is'

    .local string result_decode
    result_decode = dec_sub( base64 )
    is( result_decode, plain, comment )
.end

=head1 AUTHOR

Bernhard Schmalhofer <Bernhard Schmalhofer@gmx.de>

=cut

# Local Variables:
#   mode: pir
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: