improve --parent-id cram test

Author: EmileTrotignon

test/pages/parent_ids.t/index.mld

@@ -1,2 +1 @@
 {0 Index page}
-

test/pages/parent_ids.t/package.mld

@@ -1,2 +1 @@
 {0 Package page}
-

test/pages/parent_ids.t/run.t

@@ -2,54 +2,26 @@ We make a 'package' mld file:
 
   $ cat package.mld
   {0 Package page}
-  
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
 
 And we'll have a module that we'll put underneath this package page.
 
   $ cat test.mli
   type t
-  
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
 
   $ ocamlc -c -bin-annot test.mli
 
   $ odoc compile test.cmti -I . --parent-id package --output-dir .
 
+We do not check that directory given by --parent-id  are indeed directories and
+not for instance modules
+Here, it is possible to do
+$ odoc compile index.mld --parent-id package/Test --output-dir .
+without triggering an error, even though this is a conflict where one of the
+package/Test/index.html page is overwritten silently.
+
   $ odoc compile package.mld --parent-id package --output-dir .
   $ odoc compile index.mld --parent-id package --output-dir .
-  $ odoc compile test_page.mld --parent-id package/Test --output-dir .
-
-
+  $ odoc compile test_page.mld --parent-id package/foo --output-dir .
 
 Link and generate the HTML:
 
@@ -61,11 +33,11 @@ Link and generate the HTML:
   test.cmti
   test.mli
   test_page.mld
-  $ ls package
-  Test
-  page-index.odoc
-  page-package.odoc
-  test.odoc
+  $ find package -type f | sort
+  package/foo/page-test_page.odoc
+  package/page-index.odoc
+  package/page-package.odoc
+  package/test.odoc
   $ for i in $(find . -name *.odoc); do odoc link -I . $i; done
   $ for i in $(find . -name *.odocl); do odoc html-generate $i -o html; done
 
@@ -74,18 +46,23 @@ file 'package.mld' should be written to the file 'package/index.html'.
 
   $ find html -type f | sort
   html/package/Test/index.html
-  html/package/Test/test_page.html
+  html/package/foo/test_page.html
   html/package/index.html
   html/package/package.html
 
 Let's make sure the manpage and latex renderers work too
 
-  $ for i in $(find . --name *.odocl); do odoc man-generate $i -o man; odoc latex-generate $i -o latex; done
-  find: unknown predicate `--name'
+  $ for i in $(find . -name *.odocl); do odoc man-generate $i -o man; odoc latex-generate $i -o latex; done
 
   $ find man -type f | sort
-  find: 'man': No such file or directory
+  man/package/Test.3o
+  man/package/foo/test_page.3o
+  man/package/index.3o
+  man/package/package.3o
 
   $ find latex -type f | sort
-  find: 'latex': No such file or directory
+  latex/package/Test.tex
+  latex/package/foo/test_page.tex
+  latex/package/index.tex
+  latex/package/package.tex
 

test/pages/parent_ids.t/test.mli

@@ -1,2 +1 @@
 type t
-