Test: vacuum bubbles

.gitignore

@@ -1,6 +1,8 @@
 *.o
 *.exe
 
+*.str
+
 *.gcno
 *.gcda
 *.gcov
@@ -69,3 +71,13 @@ doc/manual/version.tex
 
 doc/devref/devref/
 doc/manual/manual/
+
+/.diagrams_cache/
+/check/diagrams/.diagrams_cache/
+/diagrams.out
+/feyngraph.jinja
+/feyngraph.toml
+/qgraf.dat
+/qgraf.mdl
+/qgraf.out
+/qgraf.sty

check/diagrams/vacuum-bubbles.frm

@@ -0,0 +1,230 @@
+* Compares the diagram generator with others.
+*
+* When run outside the testsuite, this file must be on the include path.
+* For example, run:
+*   form -D TEST=XXX -I check/diagrams vacuum-bubbles.frm
+*
+#ifndef `TEST'
+  #message Use -D TEST=XXX
+  #terminate
+#else
+  #include `NAME_' # `TEST'
+#endif
+.end
+
+*--#[ feyngraph_phi3_2_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi3,in=,out=,loops=2,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 2
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi3_2_none : 
+*--#[ feyngraph_phi3_2_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi3,in=,out=,loops=2,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 1
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi3_2_onepi_opicomponents1 : 
+*--#[ feyngraph_phi3_3_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi3,in=,out=,loops=3,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 5
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi3_3_none : 
+*--#[ feyngraph_phi3_3_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi3,in=,out=,loops=3,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 2
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi3_3_onepi_opicomponents1 : 
+*--#[ feyngraph_phi3_4_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi3,in=,out=,loops=4,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 17
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi3_4_none : 
+*--#[ feyngraph_phi3_4_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi3,in=,out=,loops=4,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 5
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi3_4_onepi_opicomponents1 : 
+*--#[ feyngraph_phi3_5_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi3,in=,out=,loops=5,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 71
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi3_5_none : 
+*--#[ feyngraph_phi3_5_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi3,in=,out=,loops=5,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 16
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi3_5_onepi_opicomponents1 : 
+*--#[ feyngraph_phi4_2_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi4,in=,out=,loops=2,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 1
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi4_2_none : 
+*--#[ feyngraph_phi4_2_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi4,in=,out=,loops=2,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 1
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi4_2_onepi_opicomponents1 : 
+*--#[ feyngraph_phi4_3_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi4,in=,out=,loops=3,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 2
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi4_3_none : 
+*--#[ feyngraph_phi4_3_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi4,in=,out=,loops=3,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 2
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi4_3_onepi_opicomponents1 : 
+*--#[ feyngraph_phi4_4_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi4,in=,out=,loops=4,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 4
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi4_4_none : 
+*--#[ feyngraph_phi4_4_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi4,in=,out=,loops=4,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 4
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi4_4_onepi_opicomponents1 : 
+*--#[ feyngraph_phi4_5_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi4,in=,out=,loops=5,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 10
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi4_5_none : 
+*--#[ feyngraph_phi4_5_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,phi4,in=,out=,loops=5,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 10
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_phi4_5_onepi_opicomponents1 : 
+*--#[ feyngraph_qcd_2_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,qcd,in=,out=,loops=2,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 10
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_qcd_2_none : 
+*--#[ feyngraph_qcd_2_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,qcd,in=,out=,loops=2,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 4
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_qcd_2_onepi_opicomponents1 : 
+*--#[ feyngraph_qcd_3_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,qcd,in=,out=,loops=3,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 74
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_qcd_3_none : 
+*--#[ feyngraph_qcd_3_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,qcd,in=,out=,loops=3,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 19
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_qcd_3_onepi_opicomponents1 : 
+*--#[ feyngraph_qcd_4_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,qcd,in=,out=,loops=4,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 787
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_qcd_4_none : 
+*--#[ feyngraph_qcd_4_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,qcd,in=,out=,loops=4,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 118
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_qcd_4_onepi_opicomponents1 : 
+*--#[ feyngraph_qcd_5_none :
+#include- diagrams.h
+#call DoComparison(feyngraph,qcd,in=,out=,loops=5,form_options=,feyngraph_options=,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 12034
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_qcd_5_none : 
+*--#[ feyngraph_qcd_5_onepi_opicomponents1 :
+#include- diagrams.h
+#call DoComparison(feyngraph,qcd,in=,out=,loops=5,form_options=ONEPI_,feyngraph_options=opi_components=1,options=cacheread,cachewrite)
+.end
+assert succeeded?
+assert nterms("F1", 0) == 1194
+assert nterms("F1") == 0
+assert nterms("F2") == 0
+*--#] feyngraph_qcd_5_onepi_opicomponents1 :