1 files changed, 21 insertions, 0 deletions
diff --git a/sem_6/HLIN603/ocaml/TP2/test.caml b/sem_6/HLIN603/ocaml/TP2/test.caml
new file mode 100644
index 0000000..a454ab3
--- /dev/null
+++ b/sem_6/HLIN603/ocaml/TP2/test.caml
@@ -0,0 +1,21 @@
+class aa =
+object
+  method print = print_endline("Je suis A")
+end;;
+class bb =
+object
+  inherit aa
+  method print = print_endline("Je suis B")
+end;;
+class cc =
+object
+  inherit bb as superb
+end;;
+class dd =
+object (self)
+  inherit cc as super
+  method print = print_endline("Je suis D")
+  method m = super#print
+end;;
+let a = new dd;;
+a#m;;