seqlings 3.0.7

Interactive exercises for learning Seq, a stack-based programming language
: encode-message ( String -- String )
    encoding.base64-encode
;

: decode-message ( String -- String Bool )
    encoding.base64-decode
;

: test-base64 ( -- )
    "Hello, World!" encode-message
    "SGVsbG8sIFdvcmxkIQ==" test.assert-eq

    "U2VxIGlzIGF3ZXNvbWU=" decode-message
    test.assert
    "Seq is awesome" test.assert-eq

    "" encode-message
    "" test.assert-eq
;