[p5sagit/p5-mst-13.2.git] / lib / FileCache / t / 04twoarg.t

#!./perl
BEGIN {
    use FileCache;
    chdir 't' if -d 't';

    #For tests within the perl distribution
    @INC = '../lib' if -d '../lib';
    END;
}
END{
  unlink('foo');
}

print "1..1\n";

{# Test 4: that 2 arg format works, and that we cycle on mode change
     cacheout '>', "foo";
     print foo "foo 4\n";
     cacheout '+>', "foo";
     print foo "foo 44\n";
     seek(foo, 0, 0);
     print 'not ' unless <foo> eq "foo 44\n";
     print "ok 1\n";
     close foo;
}
Commit	Line	Data
1673d79e	1	#!./perl
	2	BEGIN {
	3	use FileCache;
	4	chdir 't' if -d 't';
	5
	6	#For tests within the perl distribution
	7	@INC = '../lib' if -d '../lib';
	8	END;
	9	}
	10	END{
	11	unlink('foo');
	12	}
	13
	14	print "1..1\n";
	15
	16	{# Test 4: that 2 arg format works, and that we cycle on mode change
	17	cacheout '>', "foo";
	18	print foo "foo 4\n";
	19	cacheout '+>', "foo";
	20	print foo "foo 44\n";
	21	seek(foo, 0, 0);
	22	print 'not ' unless <foo> eq "foo 44\n";
	23	print "ok 1\n";
846e3505	24	close foo;
1673d79e	25	}