#!/usr/bin/perl

BEGIN {
    $ENV{'HARNESS_ACTIVE'}  = 1;
    $ENV{'HARNESS_VERBOSE'} = 1;
}

use strict;
use warnings;
use Test::More tests => 1;

my $log_file = './test_log';

my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst )
    = localtime(time);

my $timestamp = sprintf(
    "%4d-%02d-%02d %02d:%02d:%02d",
    $year + 1900,
    $mon + 1, $mday, $hour, $min, $sec
);

open( OUT, '>', $log_file )
    or die "Could not open OUT! $!\n";
binmode OUT, ":encoding(UTF-8)";

print OUT "### START####################################################\n";
print OUT "\t $timestamp  \n";

ok 1, "running the test $0...";
print OUT "ok 1 - running the test $0";

close(OUT);

##</code><code>##

###START####################################################
	 2015-02-13 11:44:06  
ok 1 - running the test /root/Desktop/test_hangs.t.tdy

##</code><code>##


###START####################################################
	 2015-02-13 11:22:31  
ok 1 - running the test /root/Desktop/test_hangs.t