### ----------------------------------------------------
### -- Number::More
### -- Licenses: Artistic-2.0
### -- Authors: Tom Browder <tbrowder@acm.org>
### -- File: t/6-auto-transform-checks.t
### ----------------------------------------------------
### -- Chunk 3 of 3
7";
is rebase("1010101110101000", 2, 55, :$suffix), "ESs_base-55", "base 55; test 398";
is rebase("125650", 8, 55, :$suffix), "ESs_base-55", "base 55; test 399";
is rebase("ABA8", 16, 55, :$suffix), "ESs_base-55", "base 55; test 400";

is rebase(9911, 10, 56), "38t", "base 56; test 401";
is rebase("10011010110111", 2, 56), "38t", "base 56; test 402";
is rebase("23267", 8, 56), "38t", "base 56; test 403";
is rebase("26B7", 16, 56), "38t", "base 56; test 404";

# add the suffix
is rebase(9911, 10, 56, :$suffix), "38t_base-56", "base 56; test 405";
is rebase("10011010110111", 2, 56, :$suffix), "38t_base-56", "base 56; test 406";
is rebase("23267", 8, 56, :$suffix), "38t_base-56", "base 56; test 407";
is rebase("26B7", 16, 56, :$suffix), "38t_base-56", "base 56; test 408";

is rebase(13337, 10, 57), "45u", "base 57; test 409";
is rebase("11010000011001", 2, 57), "45u", "base 57; test 410";
is rebase("32031", 8, 57), "45u", "base 57; test 411";
is rebase("3419", 16, 57), "45u", "base 57; test 412";

# add the suffix
is rebase(13337, 10, 57, :$suffix), "45u_base-57", "base 57; test 413";
is rebase("11010000011001", 2, 57, :$suffix), "45u_base-57", "base 57; test 414";
is rebase("32031", 8, 57, :$suffix), "45u_base-57", "base 57; test 415";
is rebase("3419", 16, 57, :$suffix), "45u_base-57", "base 57; test 416";

is rebase(3769, 10, 58), "16v", "base 58; test 417";
is rebase("111010111001", 2, 58), "16v", "base 58; test 418";
is rebase("7271", 8, 58), "16v", "base 58; test 419";
is rebase("EB9", 16, 58), "16v", "base 58; test 420";

# add the suffix
is rebase(3769, 10, 58, :$suffix), "16v_base-58", "base 58; test 421";
is rebase("111010111001", 2, 58, :$suffix), "16v_base-58", "base 58; test 422";
is rebase("7271", 8, 58, :$suffix), "16v_base-58", "base 58; test 423";
is rebase("EB9", 16, 58, :$suffix), "16v_base-58", "base 58; test 424";

is rebase(52170, 10, 59), "EwE", "base 59; test 425";
is rebase("1100101111001010", 2, 59), "EwE", "base 59; test 426";
is rebase("145712", 8, 59), "EwE", "base 59; test 427";
is rebase("CBCA", 16, 59), "EwE", "base 59; test 428";

# add the suffix
is rebase(52170, 10, 59, :$suffix), "EwE_base-59", "base 59; test 429";
is rebase("1100101111001010", 2, 59, :$suffix), "EwE_base-59", "base 59; test 430";
is rebase("145712", 8, 59, :$suffix), "EwE_base-59", "base 59; test 431";
is rebase("CBCA", 16, 59, :$suffix), "EwE_base-59", "base 59; test 432";

is rebase(115442, 10, 60), "W42", "base 60; test 433";
is rebase("11100001011110010", 2, 60), "W42", "base 60; test 434";
is rebase("341362", 8, 60), "W42", "base 60; test 435";
is rebase("1C2F2", 16, 60), "W42", "base 60; test 436";

# add the suffix
is rebase(115442, 10, 60, :$suffix), "W42_base-60", "base 60; test 437";
is rebase("11100001011110010", 2, 60, :$suffix), "W42_base-60", "base 60; test 438";
is rebase("341362", 8, 60, :$suffix), "W42_base-60", "base 60; test 439";
is rebase("1C2F2", 16, 60, :$suffix), "W42_base-60", "base 60; test 440";

is rebase(19812, 10, 61), "5Jm", "base 61; test 441";
is rebase("100110101100100", 2, 61), "5Jm", "base 61; test 442";
is rebase("46544", 8, 61), "5Jm", "base 61; test 443";
is rebase("4D64", 16, 61), "5Jm", "base 61; test 444";

# add the suffix
is rebase(19812, 10, 61, :$suffix), "5Jm_base-61", "base 61; test 445";
is rebase("100110101100100", 2, 61, :$suffix), "5Jm_base-61", "base 61; test 446";
is rebase("46544", 8, 61, :$suffix), "5Jm_base-61", "base 61; test 447";
is rebase("4D64", 16, 61, :$suffix), "5Jm_base-61", "base 61; test 448";

is rebase(8480244, 10, 62), "Za68", "base 62; test 449";
is rebase("100000010110010111110100", 2, 62), "Za68", "base 62; test 450";
is rebase("40262764", 8, 62), "Za68", "base 62; test 451";
is rebase("8165F4", 16, 62), "Za68", "base 62; test 452";

# add the suffix
is rebase(8480244, 10, 62, :$suffix), "Za68\x2086\x2082", "base 62; test 453";
is rebase("100000010110010111110100", 2, 62, :$suffix), "Za68\x2086\x2082", "base 62; test 454";
is rebase("40262764", 8, 62, :$suffix), "Za68\x2086\x2082", "base 62; test 455";
is rebase("8165F4", 16, 62, :$suffix), "Za68\x2086\x2082", "base 62; test 456";


