### ----------------------------------------------------
### -- App::Unicode::Mangle
### -- Licenses: Artistic-2.0
### -- Authors: Will Coleda
### -- File: t/square.rakutest
### ----------------------------------------------------
#!/usr/bin/env perl6

use lib $*PROGRAM.parent(1);
use runner;

use Test;
plan 2;

mangled 'square', 'Quick BrOWN FoX', '🅀 🅄 🄸 🄲 🄺   🄱 🅁 🄾 🅆 🄽   🄵 🄾 🅇', 'all caps';
mangled 'nsquare', 'Quick BrOWN FoX', '🆀 🆄 🅸 🅲 🅺   🅱 🆁 🅾 🆆 🅽   🅵 🅾 ❎', 'negative, all caps, special X';


