[Rapideuphoria-commits] euphoria: default: ticket 930: added signed test

[<sc...@op...>]

changeset:   a398d96fa738 in /home/euweb/scm/hg_repos/euphoria
branch:      default
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=a398d96fa738
description:
	ticket 930: added signed test

diffstat:

 tests/t_machine.e |  3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diffs (11 lines):

diff -r 1110bd29c7d4 -r a398d96fa738 tests/t_machine.e
--- a/tests/t_machine.e	Tue Sep 29 16:26:24 2015 -0300
+++ b/tests/t_machine.e	Tue Sep 29 23:43:24 2015 -0300
@@ -60,4 +60,7 @@
 poke8( ptr, {0xffff_ffff, 0xffff_ffff_ffff_f800, 0x7fff_ffff_ffff_fe00, 0x3fff_ffff_ffff_ff00})
 test_equal( "poke8/peek8u long long doubles",{0xffff_ffff, 0xffff_ffff_ffff_f800, 0x7fff_ffff_ffff_fe00, 0x3fff_ffff_ffff_ff00}, peek8u( ptr & 4 ) )
 
+poke8( ptr, #7FFF_FFFF_FFFF_FC00)
+test_equal( "poke8/peek8s long long double", #7FFF_FFFF_FFFF_FC00, peek8s( ptr ) )
+
 test_report()