[m-rev.] diff: delete tests/hard_coded
Fergus Henderson
fjh at cs.mu.OZ.AU
Thu Oct 31 18:03:11 AEDT 2002
Estimated hours taken: 0.25
Branches: main
tests/Mmakefile:
tests/typeclasses/Mmakefile:
tests/typeclasses/abstract_typeclasses.exp:
tests/typeclasses/abstract_typeclasses.m:
Delete this test case, and the directory containing it, since
(a) it is in the wrong place, and
(b) there is already a test for this feature
in tests/hard_coded/typeclasses
(abstract_typeclass.m and use_abstract_typeclass.m).
Workspace: /home/ceres/fjh/mercury
Index: tests/Mmakefile
===================================================================
RCS file: /home/mercury1/repository/tests/Mmakefile,v
retrieving revision 1.7
diff -u -d -r1.7 Mmakefile
--- tests/Mmakefile 30 Oct 2002 06:15:49 -0000 1.7
+++ tests/Mmakefile 31 Oct 2002 07:02:19 -0000
@@ -10,7 +10,6 @@
misc_tests \
tabling \
term \
- typeclasses \
valid \
warnings
TESTS_DIR=.
Index: tests/typeclasses/Mmakefile
===================================================================
RCS file: tests/typeclasses/Mmakefile
diff -N tests/typeclasses/Mmakefile
--- tests/typeclasses/Mmakefile 30 Oct 2002 06:15:57 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,31 +0,0 @@
-#-----------------------------------------------------------------------------#
-
-THIS_DIR = typeclasses
-
-#-----------------------------------------------------------------------------#
-
-# Any program added here should also be added to the `.cvsignore' file.
-
-ORDINARY_PROGS= \
- abstract_typeclasses
-
-EXCEPTION_PROGS =
-
-ifneq "$(findstring profdeep,$(GRADE))" ""
- PROGS = $(ORDINARY_PROGS)
-else
- PROGS = $(ORDINARY_PROGS) $(EXCEPTION_PROGS)
-endif
-
-NOT_WORKING =
-
-SUBDIRS =
-TESTS=$(PROGS)
-TESTS_DIR=..
-include $(TESTS_DIR)/Mmake.common
-
-# Module-specific options should go in Mercury.options so they
-# can be found by `mmc --make'.
-include Mercury.options
-
-%.runtest: %.res ;
Index: tests/typeclasses/abstract_typeclasses.exp
===================================================================
RCS file: tests/typeclasses/abstract_typeclasses.exp
diff -N tests/typeclasses/abstract_typeclasses.exp
--- tests/typeclasses/abstract_typeclasses.exp 30 Oct 2002 06:15:57 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1 +0,0 @@
-double(2) = 4
Index: tests/typeclasses/abstract_typeclasses.m
===================================================================
RCS file: tests/typeclasses/abstract_typeclasses.m
diff -N tests/typeclasses/abstract_typeclasses.m
--- tests/typeclasses/abstract_typeclasses.m 30 Oct 2002 06:15:57 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,44 +0,0 @@
-%-----------------------------------------------------------------------------%
-% abstract_typeclasses.m
-% Ralph Becket <rafe at cs.mu.oz.au>
-% Wed Oct 30 14:53:53 EST 2002
-% vim: ft=mercury ts=4 sw=4 et wm=0 tw=0
-%
-%-----------------------------------------------------------------------------%
-
-:- module abstract_typeclasses.
-
-:- interface.
-
-:- import_module io, int.
-
-
-
-:- typeclass tc(T).
-
-:- instance tc(int).
-
-
-
-:- pred main(io::di, io::uo) is det.
-
-%-----------------------------------------------------------------------------%
-%-----------------------------------------------------------------------------%
-
-:- implementation.
-
-:- import_module string, list.
-
-
-
-:- typeclass tc(T) where [ func double(T) = T ].
-
-:- instance tc(int) where [ double(X) = X + X ].
-
-%-----------------------------------------------------------------------------%
-
-main(!IO) :-
- io__format("double(2) = %d\n", [i(double(2))], !IO).
-
-%-----------------------------------------------------------------------------%
-%-----------------------------------------------------------------------------%
--
Fergus Henderson <fjh at cs.mu.oz.au> | "I have always known that the pursuit
The University of Melbourne | of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh> | -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-reviews mailing list
post: mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------
More information about the reviews
mailing list