2008-07-21 13:59:24 +02:00
|
|
|
<?php
|
|
|
|
|
|
|
|
|
|
class SSViewerTest extends SapphireTest {
|
|
|
|
|
/**
|
|
|
|
|
* Test that a template without a <head> tag still renders.
|
|
|
|
|
*/
|
|
|
|
|
function testTemplateWithoutHeadRenders() {
|
|
|
|
|
$data = new ArrayData(array(
|
|
|
|
|
'Var' => 'var value'
|
|
|
|
|
));
|
|
|
|
|
|
|
|
|
|
$result = $data->renderWith("SSViewerTestPartialTemplate");
|
2008-11-24 20:28:46 +01:00
|
|
|
$this->assertEquals('Test partial template: var value', trim(preg_replace("/<!--.*-->/U",'',$result)));
|
2008-07-21 13:59:24 +02:00
|
|
|
}
|
2008-11-10 02:01:55 +01:00
|
|
|
|
2009-11-27 01:24:57 +01:00
|
|
|
|
|
|
|
|
/**
|
|
|
|
|
* Small helper to render templates from strings
|
|
|
|
|
*/
|
|
|
|
|
function render($templateString, $data = null) {
|
|
|
|
|
$t = SSViewer::fromString($templateString);
|
|
|
|
|
if(!$data) $data = new SSViewerTestFixture();
|
|
|
|
|
return $t->process($data);
|
|
|
|
|
}
|
|
|
|
|
|
2008-11-10 02:01:55 +01:00
|
|
|
function testRequirements() {
|
|
|
|
|
$requirements = $this->getMock("Requirements_Backend", array("javascript", "css"));
|
|
|
|
|
$jsFile = 'sapphire/tests/forms/a.js';
|
|
|
|
|
$cssFile = 'sapphire/tests/forms/a.js';
|
|
|
|
|
|
|
|
|
|
$requirements->expects($this->once())->method('javascript')->with($jsFile);
|
|
|
|
|
$requirements->expects($this->once())->method('css')->with($cssFile);
|
|
|
|
|
|
2008-11-10 02:13:42 +01:00
|
|
|
Requirements::set_backend($requirements);
|
2008-11-10 02:01:55 +01:00
|
|
|
|
2009-11-27 01:24:57 +01:00
|
|
|
$template = $this->render("<% require javascript($jsFile) %>
|
|
|
|
|
<% require css($cssFile) %>");
|
|
|
|
|
|
2008-11-10 02:01:55 +01:00
|
|
|
$this->assertFalse((bool)trim($template), "Should be no content in this return.");
|
|
|
|
|
}
|
2008-11-14 04:43:26 +01:00
|
|
|
|
|
|
|
|
function testComments() {
|
2009-11-27 01:24:57 +01:00
|
|
|
$output = $this->render(<<<SS
|
2008-11-14 04:43:26 +01:00
|
|
|
This is my template<%-- this is a comment --%>This is some content<%-- this is another comment --%>This is the final content
|
|
|
|
|
SS
|
|
|
|
|
);
|
|
|
|
|
|
2008-11-24 20:28:46 +01:00
|
|
|
$this->assertEquals("This is my templateThis is some contentThis is the final content", preg_replace("/\n?<!--.*-->\n?/U",'',$output));
|
2008-11-14 04:43:26 +01:00
|
|
|
}
|
2009-01-04 23:20:36 +01:00
|
|
|
|
|
|
|
|
function testObjectDotArguments() {
|
|
|
|
|
$this->assertEquals(
|
2009-11-27 01:24:57 +01:00
|
|
|
'[out:TestObject.methodWithOneArgument(one)]
|
|
|
|
|
[out:TestObject.methodWithTwoArguments(one,two)]
|
|
|
|
|
[out:TestMethod(Arg1,Arg2).Bar.Val]
|
|
|
|
|
[out:TestMethod(Arg1,Arg2).Bar]
|
|
|
|
|
[out:TestMethod(Arg1,Arg2)]
|
|
|
|
|
[out:TestMethod(Arg1).Bar.Val]
|
|
|
|
|
[out:TestMethod(Arg1).Bar]
|
|
|
|
|
[out:TestMethod(Arg1)]',
|
|
|
|
|
$this->render('$TestObject.methodWithOneArgument(one)
|
|
|
|
|
$TestObject.methodWithTwoArguments(one,two)
|
|
|
|
|
$TestMethod(Arg1, Arg2).Bar.Val
|
|
|
|
|
$TestMethod(Arg1, Arg2).Bar
|
|
|
|
|
$TestMethod(Arg1, Arg2)
|
|
|
|
|
$TestMethod(Arg1).Bar.Val
|
|
|
|
|
$TestMethod(Arg1).Bar
|
|
|
|
|
$TestMethod(Arg1)')
|
2009-01-04 23:20:36 +01:00
|
|
|
);
|
2009-11-27 01:24:57 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
function testEscapedArguments() {
|
2009-01-04 23:20:36 +01:00
|
|
|
$this->assertEquals(
|
2009-11-27 01:24:57 +01:00
|
|
|
'[out:Foo(Arg1,Arg2).Bar.Val].Suffix
|
|
|
|
|
[out:Foo(Arg1,Arg2).Val]_Suffix
|
|
|
|
|
[out:Foo(Arg1,Arg2)]/Suffix
|
|
|
|
|
[out:Foo(Arg1).Bar.Val]textSuffix
|
|
|
|
|
[out:Foo(Arg1).Bar].Suffix
|
|
|
|
|
[out:Foo(Arg1)].Suffix
|
|
|
|
|
[out:Foo.Bar.Val].Suffix
|
|
|
|
|
[out:Foo.Bar].Suffix
|
|
|
|
|
[out:Foo].Suffix',
|
|
|
|
|
$this->render('{$Foo(Arg1, Arg2).Bar.Val}.Suffix
|
|
|
|
|
{$Foo(Arg1, Arg2).Val}_Suffix
|
|
|
|
|
{$Foo(Arg1, Arg2)}/Suffix
|
|
|
|
|
{$Foo(Arg1).Bar.Val}textSuffix
|
|
|
|
|
{$Foo(Arg1).Bar}.Suffix
|
|
|
|
|
{$Foo(Arg1)}.Suffix
|
|
|
|
|
{$Foo.Bar.Val}.Suffix
|
|
|
|
|
{$Foo.Bar}.Suffix
|
|
|
|
|
{$Foo}.Suffix')
|
2009-01-04 23:20:36 +01:00
|
|
|
);
|
|
|
|
|
}
|
2009-10-31 01:16:54 +01:00
|
|
|
|
2009-11-27 01:24:58 +01:00
|
|
|
function testControlWhitespace() {
|
|
|
|
|
$this->assertEquals(
|
|
|
|
|
'before[out:SingleItem.Test]after
|
|
|
|
|
beforeTestafter',
|
|
|
|
|
$this->render('before<% control SingleItem %>$Test<% end_control %>after
|
|
|
|
|
before<% control SingleItem %>Test<% end_control %>after')
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
// The control tags are removed from the output, but no whitespace
|
|
|
|
|
// This is a quirk that could be changed, but included in the test to make the current
|
|
|
|
|
// behaviour explicit
|
|
|
|
|
$this->assertEquals(
|
|
|
|
|
'before
|
|
|
|
|
|
|
|
|
|
[out:SingleItem.ItemOnItsOwnLine]
|
|
|
|
|
|
|
|
|
|
after',
|
|
|
|
|
$this->render('before
|
|
|
|
|
<% control SingleItem %>
|
|
|
|
|
$ItemOnItsOwnLine
|
|
|
|
|
<% end_control %>
|
|
|
|
|
after')
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
// The whitespace within the control tags is preserve in a loop
|
|
|
|
|
// This is a quirk that could be changed, but included in the test to make the current
|
|
|
|
|
// behaviour explicit
|
|
|
|
|
$this->assertEquals(
|
|
|
|
|
'before
|
|
|
|
|
|
|
|
|
|
[out:Loop3.ItemOnItsOwnLine]
|
|
|
|
|
|
|
|
|
|
[out:Loop3.ItemOnItsOwnLine]
|
|
|
|
|
|
|
|
|
|
[out:Loop3.ItemOnItsOwnLine]
|
|
|
|
|
|
|
|
|
|
after',
|
|
|
|
|
$this->render('before
|
|
|
|
|
<% control Loop3 %>
|
|
|
|
|
$ItemOnItsOwnLine
|
|
|
|
|
<% end_control %>
|
|
|
|
|
after')
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
function testControls() {
|
|
|
|
|
// Single item controls
|
|
|
|
|
$this->assertEquals(
|
|
|
|
|
'a[out:Foo.Bar.Item]b
|
|
|
|
|
[out:Foo.Bar(Arg1).Item]
|
|
|
|
|
[out:Foo(Arg1).Item]
|
|
|
|
|
[out:Foo(Arg1,Arg2).Item]
|
|
|
|
|
[out:Foo(Arg1,Arg2,Arg3).Item]',
|
|
|
|
|
$this->render('<% control Foo.Bar %>a{$Item}b<% end_control %>
|
|
|
|
|
<% control Foo.Bar(Arg1) %>$Item<% end_control %>
|
|
|
|
|
<% control Foo(Arg1) %>$Item<% end_control %>
|
|
|
|
|
<% control Foo(Arg1, Arg2) %>$Item<% end_control %>
|
|
|
|
|
<% control Foo(Arg1, Arg2, Arg3) %>$Item<% end_control %>')
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
// Loop controls
|
|
|
|
|
$this->assertEquals('a[out:Foo.Loop2.Item]ba[out:Foo.Loop2.Item]b',
|
|
|
|
|
$this->render('<% control Foo.Loop2 %>a{$Item}b<% end_control %>'));
|
|
|
|
|
|
|
|
|
|
$this->assertEquals('[out:Foo.Loop2(Arg1).Item][out:Foo.Loop2(Arg1).Item]',
|
|
|
|
|
$this->render('<% control Foo.Loop2(Arg1) %>$Item<% end_control %>'));
|
|
|
|
|
|
|
|
|
|
$this->assertEquals('[out:Loop2(Arg1).Item][out:Loop2(Arg1).Item]',
|
|
|
|
|
$this->render('<% control Loop2(Arg1) %>$Item<% end_control %>'));
|
|
|
|
|
|
|
|
|
|
$this->assertEquals('[out:Loop2(Arg1,Arg2).Item][out:Loop2(Arg1,Arg2).Item]',
|
|
|
|
|
$this->render('<% control Loop2(Arg1, Arg2) %>$Item<% end_control %>'));
|
|
|
|
|
|
|
|
|
|
$this->assertEquals('[out:Loop2(Arg1,Arg2,Arg3).Item][out:Loop2(Arg1,Arg2,Arg3).Item]',
|
|
|
|
|
$this->render('<% control Loop2(Arg1, Arg2, Arg3) %>$Item<% end_control %>'));
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
2009-10-31 01:16:54 +01:00
|
|
|
function testBaseTagGeneration() {
|
|
|
|
|
// XHTML wil have a closed base tag
|
2009-11-27 01:24:57 +01:00
|
|
|
$tmpl1 = '<?xml version="1.0" encoding="UTF-8"?>
|
2009-10-31 01:16:54 +01:00
|
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
|
|
|
<html>
|
|
|
|
|
<head><% base_tag %></head>
|
|
|
|
|
<body><p>test</p><body>
|
2009-11-27 01:24:57 +01:00
|
|
|
</html>';
|
|
|
|
|
$this->assertRegExp('/<head><base href=".*"><\/base><\/head>/', $this->render($tmpl1));
|
2009-10-31 01:16:54 +01:00
|
|
|
|
|
|
|
|
// HTML4 and 5 will only have it for IE
|
2009-11-27 01:24:57 +01:00
|
|
|
$tmpl2 = '<!DOCTYPE html>
|
2009-10-31 01:16:54 +01:00
|
|
|
<html>
|
|
|
|
|
<head><% base_tag %></head>
|
|
|
|
|
<body><p>test</p><body>
|
2009-11-27 01:24:57 +01:00
|
|
|
</html>';
|
|
|
|
|
$this->assertRegExp('/<head><base href=".*"><!--\[if lte IE 6\]><\/base><!\[endif\]--><\/head>/', $this->render($tmpl2));
|
2009-10-31 01:16:54 +01:00
|
|
|
|
|
|
|
|
|
2009-11-27 01:24:57 +01:00
|
|
|
$tmpl3 = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
|
2009-10-31 01:16:54 +01:00
|
|
|
<html>
|
|
|
|
|
<head><% base_tag %></head>
|
|
|
|
|
<body><p>test</p><body>
|
2009-11-27 01:24:57 +01:00
|
|
|
</html>';
|
|
|
|
|
$this->assertRegExp('/<head><base href=".*"><!--\[if lte IE 6\]><\/base><!\[endif\]--><\/head>/', $this->render($tmpl3));
|
2009-10-31 01:16:54 +01:00
|
|
|
|
|
|
|
|
// Check that the content negotiator converts to the equally legal formats
|
|
|
|
|
$negotiator = new ContentNegotiator();
|
|
|
|
|
|
2009-11-27 01:24:57 +01:00
|
|
|
$response = new SS_HTTPResponse($this->render($tmpl1));
|
2009-10-31 01:16:54 +01:00
|
|
|
$negotiator->html($response);
|
|
|
|
|
$this->assertRegExp('/<head><base href=".*"><!--\[if lte IE 6\]><\/base><!\[endif\]--><\/head>/', $response->getBody());
|
|
|
|
|
|
2009-11-27 01:24:57 +01:00
|
|
|
$response = new SS_HTTPResponse($this->render($tmpl1));
|
2009-10-31 01:16:54 +01:00
|
|
|
$negotiator->xhtml($response);
|
|
|
|
|
$this->assertRegExp('/<head><base href=".*"><\/base><\/head>/', $response->getBody());
|
|
|
|
|
}
|
2009-01-04 23:20:36 +01:00
|
|
|
}
|
|
|
|
|
|
2009-11-27 01:24:57 +01:00
|
|
|
/**
|
|
|
|
|
* A test fixture that will echo back the template item
|
|
|
|
|
*/
|
|
|
|
|
class SSViewerTestFixture extends ViewableData {
|
|
|
|
|
protected $name;
|
|
|
|
|
|
|
|
|
|
function __construct($name = null) {
|
|
|
|
|
$this->name = $name;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
private function argedName($fieldName, $arguments) {
|
|
|
|
|
$childName = $this->name ? "$this->name.$fieldName" : $fieldName;
|
|
|
|
|
if($arguments) return $childName . '(' . implode(',', $arguments) . ')';
|
|
|
|
|
else return $childName;
|
|
|
|
|
}
|
|
|
|
|
function obj($fieldName, $arguments=null, $forceReturnedObject=true, $cache=false, $cacheName=null) {
|
|
|
|
|
$childName = $this->argedName($fieldName, $arguments);
|
|
|
|
|
|
|
|
|
|
// Special field name Loop### to create a list
|
|
|
|
|
if(preg_match('/^Loop([0-9]+)$/', $fieldName, $matches)) {
|
|
|
|
|
$output = new DataObjectSet();
|
|
|
|
|
for($i=0;$i<$matches[1];$i++) $output->push(new SSViewerTestFixture($childName));
|
|
|
|
|
return $output;
|
|
|
|
|
|
|
|
|
|
} else if(preg_match('/NotSet/i', $fieldName)) {
|
|
|
|
|
return new ViewableData();
|
|
|
|
|
|
|
|
|
|
} else {
|
|
|
|
|
return new SSViewerTestFixture($childName);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function XML_val($fieldName, $arguments = null) {
|
|
|
|
|
if(preg_match('/NotSet/i', $fieldName)) {
|
|
|
|
|
return '';
|
|
|
|
|
} else if(preg_match('/Raw/i', $fieldName)) {
|
|
|
|
|
return $fieldName;
|
|
|
|
|
} else {
|
|
|
|
|
return '[out:' . $this->argedName($fieldName, $arguments) . ']';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
function hasValue($fieldName, $arguments = null) {
|
|
|
|
|
return (bool)$this->XML_val($fieldName, $arguments);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
/*
|
2009-01-04 23:20:36 +01:00
|
|
|
class SSViewerTest_ViewableData extends ViewableData implements TestOnly {
|
|
|
|
|
function methodWithOneArgument($arg1) {
|
|
|
|
|
return "arg1:{$arg1}";
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
function methodWithTwoArguments($arg1, $arg2) {
|
|
|
|
|
return "arg1:{$arg1},arg2:{$arg2}";
|
|
|
|
|
}
|
2009-11-27 01:24:57 +01:00
|
|
|
}
|
|
|
|
|
*/
|
