gforth/test/gforth.fs - diff

Return to gforth.fs CVS log

Up to [gforth] / gforth / test

Diff for /gforth/test/gforth.fs between versions 1.14 and 1.17

version 1.14, 2007/12/31 17:34:59	version 1.17, 2009/12/31 15:32:36
Line 1	Line 1
\ test some gforth extension words	\ test some gforth extension words

\ Copyright (C) 2003,2004,2005,2006,2007 Free Software Foundation, Inc.	\ Copyright (C) 2003,2004,2005,2006,2007,2009 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

\ Gforth is free software; you can redistribute it and/or	\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License	\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2	\ as published by the Free Software Foundation, either version 3
\ of the License, or (at your option) any later version.	\ of the License, or (at your option) any later version.

\ This program is distributed in the hope that it will be useful,	\ This program is distributed in the hope that it will be useful,
Line 15	Line 15
\ GNU General Public License for more details.	\ GNU General Public License for more details.

\ You should have received a copy of the GNU General Public License	\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software	\ along with this program. If not, see http://www.gnu.org/licenses/.
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

require ./tester.fs	require ./tester.fs
decimal	decimal
Line 88 decimal	Line 87 decimal

{ -5 try-test3 -> 10 }	{ -5 try-test3 -> 10 }
{ 5 try-test3 -> 6 }	{ 5 try-test3 -> 6 }

	\ fcopysign

	t{ 5e 1e fcopysign -> 5e }t
	t{ -5e 1e fcopysign -> 5e }t
	t{ 5e -1e fcopysign -> -5e }t
	t{ -5e -1e fcopysign -> -5e }t
	\ tests involving -0e?

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.14
changed lines
	Added in v.1.17