Commit d2bffea6 authored by Pietro Abate's avatar Pietro Abate
Browse files

Add unit tests expected files

parent b5441439
val summary : Content -> [ Block* ]
val format : Text -> [ Flow* ] &
([ (Section | Box)* ] | Section | Box) -> [ Block* ]
val box : [ Flow* ] -> [ Block* ]
val content : Content
val fname : Latin1
val title : String
val out : Html
val text : (Text,Int) -> [ Flow <note no=Int>String* ]
val format : Doc -> Result
val sort2 : FPerson -> Woman & MPerson -> Man
val sort : FPerson -> Woman & MPerson -> Man
val base : Person
val split : MCitizen -> CMan & FCitizen -> CWoman & FPerson -> Woman &
MPerson -> Man
val x : { get=[ ] -> Int set=Int -> [ ] }
val loop : [ ] -> [ ]
val newperson : [ ] -> Person
val pippo : Person
val examples : [ Example+ ]
val to_ml : [ Example* ] -> String
val protect_quote : String -> String
val do_example : Example -> Li
val script : String -> String
val bib1 : Bib
val authors2 : (Book | { year=Int title=String authors=X1 }) -> X1 where
X1 = [ String+ ]
val extract : [ ([ Char* ] | Author)+ ] -> [ String+ ]
val authors : Book -> [ Author+ ] & Intern -> [ String+ ]
val intern : Bib -> [ Intern* ]
val flatten_bib : [ Book* ] -> Flat
val chair_books : Bib -> [ <book>[ Title Year Author* Chair_auth Author* ]* ]
val f : [ T ] -> [ S ]
val concat : [ t('a)* ] -> t('a)
val rev_append : t('a) -> t('a) -> t('a)
val append : t('a) -> t('a) -> t('a)
val rev : t('a) -> t('a)
val nth : t('a) -> Int -> 'a
val tl : t('a) -> t('a)
val hd : [ 'a+ ] -> 'a
val length : t('a) -> Int
val flatten : [ t('a)* ] -> t('a)
val rev_map : ('a -> 'b) -> t('a) -> [ 'b* ]
val mapi : (Int -> 'a -> 'b) -> t('a) -> [ 'b* ]
val mapf : ('a -> 'b) -> t('a) -> [ 'b* ]
val iteri : (Int -> 'a -> [ ]) -> t('a) -> [ ]
val iter : ('a -> [ ]) -> t('a) -> [ ]
val concat : [ [ 'a* ]* ] -> [ 'a* ]
val rev_append : [ 'a* ] -> [ 'a* ] -> [ 'a* ]
val append : [ 'a* ] -> [ 'a* ] -> [ 'a* ]
val rev : [ 'a* ] -> [ 'a* ]
val nth : [ 'a* ] -> Int -> 'a
val tl : [ 'a+ ] -> [ 'a* ]
val hd : [ 'a+ ] -> 'a
val length : [ 'a* ] -> Int
val flatten : [ [ 'a* ]* ] -> [ 'a* ]
val mapi : (Int -> 'a -> 'b) -> [ 'a* ] -> [ 'b* ]
val mapf : ('a -> 'b) -> [ 'a* ] -> [ 'b* ]
val iteri : (Int -> 'a -> [ ]) -> [ 'a* ] -> [ ]
val iter : ('a -> [ ]) -> [ 'a* ] -> [ ]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment