view release on metacpan or  search on metacpan

t/aion/format.t  view on Meta::CPAN

# 
# ## MiB ()
# 
# Константа равна одному мебибайту.
# 
::done_testing; }; subtest 'MiB ()' => sub { 
local ($::_g0 = do {MiB}, $::_e0 = do {2**20}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'MiB  # -> 2**20' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# ## KiB ()
# 
# Константа равна одному кибибайту.
# 
::done_testing; }; subtest 'KiB ()' => sub { 
local ($::_g0 = do {KiB}, $::_e0 = do {2**10}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'KiB  # -> 2**10' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# ## xxL ()
# 
# Максимальная длина данных LongText mysql и mariadb.
# L - large.
# 
::done_testing; }; subtest 'xxL ()' => sub { 
local ($::_g0 = do {xxL}, $::_e0 = do {4*GiB-1}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'xxL  # -> 4*GiB-1' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# ## xxM ()
# 
# Максимальная длина данных MediumText mysql и mariadb.
# M - medium.
# 
::done_testing; }; subtest 'xxM ()' => sub { 
local ($::_g0 = do {xxM}, $::_e0 = do {16*MiB-1}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'xxM  # -> 16*MiB-1' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# ## xxR ()
# 
# Максимальная длина текста данных mysql и mariadb.
# R - regularity.
# 
::done_testing; }; subtest 'xxR ()' => sub { 
local ($::_g0 = do {xxR}, $::_e0 = do {64*KiB-1}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'xxR  # -> 64*KiB-1' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# ## xxS ()
# 
# Максимальная длина данных TinyText mysql и mariadb.
# S - small.
# 
::done_testing; }; subtest 'xxS ()' => sub { 
local ($::_g0 = do {xxS}, $::_e0 = do {255}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'xxS  # -> 255' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# ## to_str (;$scalar)
# 
# Преобразование в строку Perl без интерполяции.
# 
::done_testing; }; subtest 'to_str (;$scalar)' => sub { 
local ($::_g0 = do {to_str "a'\n"}, $::_e0 = "'a\\'\n'"); ::ok $::_g0 eq $::_e0, 'to_str "a\'\n" # => \'a\\\'\n\'' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
local ($::_g0 = do {[map to_str, "a'\n"]}, $::_e0 = do {["'a\\'\n'"]}); ::is_deeply $::_g0, $::_e0, '[map to_str, "a\'\n"] # --> ["\'a\\\'\n\'"]' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# ## from_str (;$one_quote_str)
# 
# Преобразование из строки Perl без интерполяции.
# 
::done_testing; }; subtest 'from_str (;$one_quote_str)' => sub { 
local ($::_g0 = do {from_str "'a\\'\n'"}, $::_e0 = "a'\n"); ::ok $::_g0 eq $::_e0, 'from_str "\'a\\\'\n\'"  # => a\'\n' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
local ($::_g0 = do {[map from_str, "'a\\'\n'"]}, $::_e0 = do {["a'\n"]}); ::is_deeply $::_g0, $::_e0, '[map from_str, "\'a\\\'\n\'"]  # --> ["a\'\n"]' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# # SUBROUTINES/METHODS
# 
# # AUTHOR
# 
# Yaroslav O. Kosmina <dart@cpan.org>
# 
# # LICENSE
# 
# âš– **GPLv3**
# 
# # COPYRIGHT
# 
# Aion::Format is copyright © 2023 by Yaroslav O. Kosmina. Rusland. All rights reserved.

	::done_testing;
};

::done_testing;