Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Non-regression test for #6032. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13751 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Alain Frisch 2013-06-06 11:45:02 +00:00
parent 4ae200a678
commit 9e0d1579ee
3 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
testsuite/tests/lib-random/Makefile Normal file
View File

@ -0,0 +1,15 @@
#########################################################################
# #
# OCaml #
# #
# Xavier Clerc, SED, INRIA Rocquencourt #
# #
# Copyright 2010 Institut National de Recherche en Informatique et #
# en Automatique. All rights reserved. This file is distributed #
# under the terms of the Q Public License version 1.0. #
# #
#########################################################################
BASEDIR=../..
include $(BASEDIR)/makefiles/Makefile.several
include $(BASEDIR)/makefiles/Makefile.common

6
testsuite/tests/lib-random/rand.ml Normal file
View File

@ -0,0 +1,6 @@
let () =
Random.self_init ();
let x = Random.int 10000 in
Random.self_init ();
let y = Random.int 1000 in
if x = y then print_endline "FAILED" else print_endline "PASSED"

1
testsuite/tests/lib-random/rand.reference Normal file
View File

@ -0,0 +1 @@
PASSED