Merge pull request #23 from sahedAnis/master

Removing Phrase library

src/Citezen-Rendering.package/CZTextTest.class/instance/library.st

@@ -0,0 +1,4 @@
+tests
+library
+
+	^ BibPhraseLibrary default

src/Citezen-Rendering.package/CZTextTest.class/instance/testSequenceWithInitiator.st

@@ -0,0 +1,14 @@
+tests
+testSequenceWithInitiator
+
+	| p library visitor |
+	library := self library.
+	p := BibSequencePhrase new
+		    addField: #author;
+		    initiatorText: 'In ';
+		     yourself.
+	visitor := BibTextRenderer new.
+	visitor render: p for: entry.
+	self
+		assert: visitor contents
+		equals: 'In St\''ephane Ducasse and Damien Pollet'

src/Citezen-Rendering.package/CZTextTest.class/instance/testSequenceWithSeparator.st

@@ -0,0 +1,15 @@
+tests
+testSequenceWithSeparator
+
+	| p library visitor |
+	library := self library.
+	p := BibSequencePhrase new
+		     addField: #author;
+		     addField: #title;
+		     separatorText: ', ';
+		     yourself.
+	visitor := BibTextRenderer new.
+	visitor render: p for: entry.
+	self
+		assert: visitor contents
+		equals: 'St\''ephane Ducasse and Damien Pollet, Fingerprints'

src/Citezen-Rendering.package/CZTextTest.class/instance/testSequenceWithTerminator.st

@@ -0,0 +1,15 @@
+tests
+testSequenceWithTerminator
+
+	| p library visitor |
+	library := self library.
+	p := BibSequencePhrase new
+		     addField: #author;
+		     initiatorText: 'In ';
+		     terminatorText: '!';
+		     yourself.
+	visitor := BibTextRenderer new.
+	visitor render: p for: entry.
+	self
+		assert: visitor contents
+		equals: 'In St\''ephane Ducasse and Damien Pollet!'

src/Citezen-Rendering.package/CZTextTest.class/instance/testSequenceWithoutSeparator.st

@@ -0,0 +1,15 @@
+tests
+testSequenceWithoutSeparator
+
+	| p library visitor |
+	library := self library.
+	p := BibSequencePhrase new
+		     addField: #author;
+		     addField: #title;
+		     initiatorText: 'In ';
+		     yourself.
+	visitor := BibTextRenderer new.
+	visitor render: p for: entry.
+	self
+		assert: visitor contents
+		equals: 'In St\''ephane Ducasse and Damien PolletFingerprints'

src/Citezen-Rendering.package/CZTextTest.class/instance/testVisitEntryWithFieldProducesContents.st

@@ -0,0 +1,14 @@
+tests
+testVisitEntryWithFieldProducesContents
+
+	| p library visitor |
+	library := self library.
+	p := BibSequencePhrase new
+		     addField: #author;
+		     terminatorText: ' (Cool.)';
+		     yourself.
+	visitor := BibTextRenderer new.
+	visitor render: p for: entry.
+	self
+		assert: visitor contents
+		equals: 'St\''ephane Ducasse and Damien Pollet (Cool.)'

src/Citezen-Rendering.package/CZTextTest.class/instance/testVisitEntryWithNoFieldProducesEmpty.st

@@ -0,0 +1,12 @@
+tests
+testVisitEntryWithNoFieldProducesEmpty
+
+	| p library visitor |
+	library := self library.
+	p := BibSequencePhrase new
+		     addField: #editor;
+		     terminatorText: ' (Ed.)';
+		     yourself.
+	visitor := BibTextRenderer new.
+	visitor render: p for: entry.
+	self assert: visitor contents isEmpty