#!/usr/bin/perl
use lib qw(/home/periapt/mysql-5.5-5.5.20/builddir/mysql-test/lib);
use My::Platform;

my $path = '/tmp/wXM23NFbaV';
my $truncated = check_socket_path_length($path);
print $truncated ? "BAD\n" : "GOOD\n";
