<?php

namespace SilverStripe\Framework\Test\Behaviour;

use Behat\Behat\Context\ClosuredContextInterface,
	Behat\Behat\Context\TranslatedContextInterface,
	Behat\Behat\Context\BehatContext,
	Behat\Behat\Context\Step,
	Behat\Behat\Exception\PendingException,
	Behat\Mink\Exception\ElementNotFoundException,
	Behat\Gherkin\Node\PyStringNode,
	Behat\Gherkin\Node\TableNode,
	Behat\Mink\Element\NodeElement;


// PHPUnit
require_once 'PHPUnit/Autoload.php';
require_once 'PHPUnit/Framework/Assert/Functions.php';

/**
 * CmsUiContext
 *
 * Context used to define steps related to SilverStripe CMS UI like Tree or Panel.
 */
class CmsUiContext extends BehatContext {
	protected $context;

	/**
	 * Initializes context.
	 * Every scenario gets it's own context object.
	 *
	 * @param   array   $parameters     context parameters (set them up through behat.yml)
	 */
	public function __construct(array $parameters) {
		// Initialize your context here
		$this->context = $parameters;
	}

	/**
	 * Get Mink session from MinkContext
	 */
	public function getSession($name = null) {
		return $this->getMainContext()->getSession($name);
	}

	/**
	 * @Then /^I should see the CMS$/
	 */
	public function iShouldSeeTheCms() {
		$page = $this->getSession()->getPage();
		$cms_element = $page->find('css', '.cms');
		assertNotNull($cms_element, 'CMS not found');
	}

	/**
	 * @Then /^I should see a "([^"]*)" notice$/
	 */
	public function iShouldSeeANotice($notice) {
		$this->getMainContext()->assertElementContains('.notice-wrap', $notice);
	}

	/**
	 * @Then /^I should see a "([^"]*)" message$/
	 */
	public function iShouldSeeAMessage($message) {
		$this->getMainContext()->assertElementContains('.message', $message);
	}

	protected function getCmsTabsElement() {
		$this->getSession()->wait(
			5000, 
			"window.jQuery && window.jQuery('.cms-content-header-tabs').size() > 0"
		);

		$page = $this->getSession()->getPage();
		$cms_content_header_tabs = $page->find('css', '.cms-content-header-tabs');
		assertNotNull($cms_content_header_tabs, 'CMS tabs not found');

		return $cms_content_header_tabs;
	}

	protected function getCmsContentToolbarElement() {
		$this->getSession()->wait(
			5000, 
			"window.jQuery && window.jQuery('.cms-content-toolbar').size() > 0 "
			. "&& window.jQuery('.cms-content-toolbar').children().size() > 0"
		);

		$page = $this->getSession()->getPage();
		$cms_content_toolbar_element = $page->find('css', '.cms-content-toolbar');
		assertNotNull($cms_content_toolbar_element, 'CMS content toolbar not found');

		return $cms_content_toolbar_element;
	}

	protected function getCmsTreeElement() {
		$this->getSession()->wait(
			5000, 
			"window.jQuery && window.jQuery('.cms-tree').size() > 0"
		);

		$page = $this->getSession()->getPage();
		$cms_tree_element = $page->find('css', '.cms-tree');
		assertNotNull($cms_tree_element, 'CMS tree not found');

		return $cms_tree_element;
	}

	protected function getGridfieldTable($title) {
		$page = $this->getSession()->getPage();
		$table_elements = $page->findAll('css', '.ss-gridfield-table');
		assertNotNull($table_elements, 'Table elements not found');

		$table_element = null;
		foreach ($table_elements as $table) {
			$table_title_element = $table->find('css', '.title');
			if ($table_title_element->getText() === $title) {
				$table_element = $table;
				break;
			}
		}
		assertNotNull($table_element, sprintf('Table `%s` not found', $title));

		return $table_element;
	}

	/**
	 * Finds the first visible GridField table.
	 */
	protected function getFirstGridFieldTable() {
		$page = $this->getSession()->getPage();
		$tableElements = $page->findAll('css', '.ss-gridfield-table');
		assertNotNull($tableElements, 'Table elements not found');

		// Return first found table.
		foreach($tableElements as $table) {
			if($table->isVisible()) return $table;
		}

		assertNotNull(null, 'First visible table element not found');
	}

	/**
	 * @Given /^I should see a "([^"]*)" button in CMS Content Toolbar$/
	 */
	public function iShouldSeeAButtonInCmsContentToolbar($text) {
		$cms_content_toolbar_element = $this->getCmsContentToolbarElement();

		$element = $cms_content_toolbar_element->find('named', array('link_or_button', "'$text'"));
		assertNotNull($element, sprintf('%s button not found', $text));
	}

	/**
	 * @When /^I should see "([^"]*)" in the tree$/
	 */
	public function stepIShouldSeeInCmsTree($text) {
		$cms_tree_element = $this->getCmsTreeElement();

		$element = $cms_tree_element->find('named', array('content', "'$text'"));
		assertNotNull($element, sprintf('%s not found', $text));
	}

	/**
	 * @When /^I should not see "([^"]*)" in the tree$/
	 */
	public function stepIShouldNotSeeInCmsTree($text) {
		$cms_tree_element = $this->getCmsTreeElement();

		$element = $cms_tree_element->find('named', array('content', "'$text'"));
		assertNull($element, sprintf('%s found', $text));
	}

	/**
	 * @When /^I click on "([^"]*)" in the tree$/
	 */
	public function stepIClickOnElementInTheTree($text) {
		$treeEl = $this->getCmsTreeElement();
		$treeNode = $treeEl->findLink($text);
		assertNotNull($treeNode, sprintf('%s not found', $text));
		$treeNode->click();
	}

	/**
	 * @When /^I expand the "([^"]*)" CMS Panel$/
	 */
	public function iExpandTheCmsPanel() {
		// TODO Make dynamic, currently hardcoded to first panel
		$page = $this->getSession()->getPage();

		$panel_toggle_element = $page->find('css', '.cms-content > .cms-panel > .cms-panel-toggle > .toggle-expand');
		assertNotNull($panel_toggle_element, 'Panel toggle not found');

		if ($panel_toggle_element->isVisible()) {
			$panel_toggle_element->click();
		}
	}

	/**
	 * @When /^I click the "([^"]*)" CMS tab$/
	 */
	public function iClickTheCmsTab($tab) {
		$this->getSession()->wait(
			5000, 
			"window.jQuery && window.jQuery('.ui-tabs-nav').size() > 0"
		);

		$page = $this->getSession()->getPage();
		$tabsets = $page->findAll('css', '.ui-tabs-nav');
		assertNotNull($tabsets, 'CMS tabs not found');

		$tab_element = null;
		foreach($tabsets as $tabset) {
			if($tab_element) continue;
			$tab_element = $tabset->find('named', array('link_or_button', "'$tab'"));
		}
		assertNotNull($tab_element, sprintf('%s tab not found', $tab));

		$tab_element->click();
	}

	/**
	 * @Then /^the "([^"]*)" table should contain "([^"]*)"$/
	 */
	public function theTableShouldContain($table, $text) {
		$table_element = $this->getGridfieldTable($table);

		$element = $table_element->find('named', array('content', "'$text'"));
		assertNotNull($element, sprintf('Element containing `%s` not found in `%s` table', $text, $table));
	}

	/**
	 * @Then /^the "([^"]*)" table should not contain "([^"]*)"$/
	 */
	public function theTableShouldNotContain($table, $text) {
		$table_element = $this->getGridfieldTable($table);

		$element = $table_element->find('named', array('content', "'$text'"));
		assertNull($element, sprintf('Element containing `%s` not found in `%s` table', $text, $table));
	}

	/**
	 * @Given /^I click on "([^"]*)" in the "([^"]*)" table$/
	 */
	public function iClickOnInTheTable($text, $table) {
		$table_element = $this->getGridfieldTable($table);

		$element = $table_element->find('xpath', sprintf('//*[count(*)=0 and contains(.,"%s")]', $text));
		assertNotNull($element, sprintf('Element containing `%s` not found', $text));
		$element->click();
	}

	/**
	 * Clicks on a row in the first found visible GridField table.
	 * Example: I click on "New Zealand" in the table
	 *
	 * @Given /^I click on "([^"]*)" in the table$/
	 */
	public function iClickOnInTheFirstTable($text) {
		$table_element = $this->getFirstGridFieldTable();

		$element = $table_element->find('xpath', sprintf('//*[count(*)=0 and contains(.,"%s")]', $text));
		assertNotNull($element, sprintf('Element containing `%s` not found', $text));
		$element->click();
	}

	/**
	 * @Then /^I can see the preview panel$/
	 */
	public function iCanSeeThePreviewPanel() {
		$this->getMainContext()->assertElementOnPage('.cms-preview');
	}

	/**
	 * @Given /^the preview contains "([^"]*)"$/
	 */
	public function thePreviewContains($content) {
		$driver = $this->getSession()->getDriver();
		// TODO Remove once we have native support in Mink and php-webdriver,
		// see https://groups.google.com/forum/#!topic/behat/QNhOuGHKEWI
		$origWindowName = $driver->getWebDriverSession()->window_handle();

		$driver->switchToIFrame('cms-preview-iframe');
		$this->getMainContext()->assertPageContainsText($content);
		$driver->switchToWindow($origWindowName);
	}

	/**
	 * @Given /^I set the CMS mode to "([^"]*)"$/
	 */
	public function iSetTheCmsToMode($mode) {
		return array(
			new Step\When(sprintf('I fill in the "Change view mode" dropdown with "%s"', $mode)),
			new Step\When('I wait for 1 second') // wait for CMS layout to redraw
		);
	}

	/**
	 * @Given /^I wait for the preview to load$/
	 */
	public function iWaitForThePreviewToLoad()  {
		$driver = $this->getSession()->getDriver();
		// TODO Remove once we have native support in Mink and php-webdriver,
		// see https://groups.google.com/forum/#!topic/behat/QNhOuGHKEWI
		$origWindowName = $driver->getWebDriverSession()->window_handle();

		$driver->switchToIFrame('cms-preview-iframe');
		$this->getSession()->wait(
			5000, 
			"window.jQuery && !window.jQuery('iframe[name=cms-preview-iframe]').hasClass('loading')"
		);
		$driver->switchToWindow($origWindowName);   
	}

	/**
	 * @Given /^I switch the preview to "([^"]*)"$/
	 */
	public function iSwitchThePreviewToMode($mode)  {
		$controls = $this->getSession()->getPage()->find('css', '.cms-preview-controls');
		assertNotNull($controls, 'Preview controls not found');

		$label = $controls->find('xpath', sprintf(
			'.//label[(@for="%s")]', 
			$mode
		));
		assertNotNull($label, 'Preview mode switch not found');

		$label->click();

		return new Step\When('I wait for the preview to load');
	}

	/**
	 * @Given /^the preview does not contain "([^"]*)"$/
	 */
	public function thePreviewDoesNotContain($content) {
		$driver = $this->getSession()->getDriver();
		// TODO Remove once we have native support in Mink and php-webdriver,
		// see https://groups.google.com/forum/#!topic/behat/QNhOuGHKEWI
		$origWindowName = $driver->getWebDriverSession()->window_handle();
		
		$driver->switchToIFrame('cms-preview-iframe');
		$this->getMainContext()->assertPageNotContainsText($content);
		$driver->switchToWindow($origWindowName);
	}

	/**
	 * Workaround for chosen.js dropdowns or tree dropdowns which hide the original dropdown field.
	 * 
	 * @When /^(?:|I )fill in the "(?P<field>(?:[^"]|\\")*)" dropdown with "(?P<value>(?:[^"]|\\")*)"$/
	 * @When /^(?:|I )fill in "(?P<value>(?:[^"]|\\")*)" for the "(?P<field>(?:[^"]|\\")*)" dropdown$/
	 */
	public function theIFillInTheDropdownWith($field, $value) {
		$field = $this->fixStepArgument($field);
		$value = $this->fixStepArgument($value);

		$nativeField = $this->getSession()->getPage()->find(
			'named', 
			array('select', $this->getSession()->getSelectorsHandler()->xpathLiteral($field))
		);
		if($nativeField) {
			$nativeField->selectOption($value);
			return;
		}

		// Given the fuzzy matching, we might get more than one matching field.
		$formFields = array();

		// Find by label
		$formField = $this->getSession()->getPage()->findField($field);
		if($formField && $formField->getTagName() == 'select') {
			$formFields[] = $formField;
		}

		// Fall back to finding by title (for dropdowns without a label)
		if(!$formFields) {
			$formFields = $this->getSession()->getPage()->findAll(
				'xpath',
				sprintf(
					'//*[self::select][(./@title="%s")]',
					$field
				)
			);
		}

		// Find by name (incl. hidden fields)
		if(!$formFields) {
			$formFields = $this->getSession()->getPage()->findAll('xpath', "//*[@name='$field']");
		}

		// Find by label
		if(!$formFields) {
			$label = $this->getSession()->getPage()->find('xpath', "//label[.='$field']");
			if($label && $for = $label->getAttribute('for')) {
				$formField = $this->getSession()->getPage()->find('xpath', "//*[@id='$for']");
				if($formField) $formFields[] = $formField;
			}
		}

		assertGreaterThan(0, count($formFields), sprintf(
			'Chosen.js dropdown named "%s" not found',
			$field
		));

		// Traverse up to field holder
		$container = null;
		foreach($formFields as $formField) {
			$container = $this->findParentByClass($formField, 'field');
			if($container) break; // Default to first visible container
		}

		assertNotNull($container, 'Chosen.js field container not found');

		// Click on newly expanded list element, indirectly setting the dropdown value
		$linkEl = $container->find('xpath', './/a[./@href]');
		assertNotNull($linkEl, 'Chosen.js link element not found');
		$this->getSession()->wait(100); // wait for dropdown overlay to appear
		$linkEl->click();
			
		if(in_array('treedropdown', explode(' ', $container->getAttribute('class')))) {
			// wait for ajax dropdown to load
			$this->getSession()->wait(
				5000,
				"window.jQuery && "
				. "window.jQuery('#" . $container->getAttribute('id') . " .treedropdownfield-panel li').length > 0"
			); 
		} else {
			// wait for dropdown overlay to appear (might be animated)
			$this->getSession()->wait(300);
		}

		$listEl = $container->find('xpath', sprintf('.//li[contains(normalize-space(string(.)), \'%s\')]', $value));
		if(null === $listEl) {
			throw new \InvalidArgumentException(sprintf(
				'Chosen.js list element with title "%s" not found',
				$value
			));
		}

		$listLinkEl = $listEl->find('xpath', './/a');
		if($listLinkEl) {
			$listLinkEl->click();
		} else {
			$listEl->click();
		}
	}

	/**
	 * Returns fixed step argument (with \\" replaced back to ").
	 *
	 * @param string $argument
	 *
	 * @return string
	 */
	protected function fixStepArgument($argument) {
		return str_replace('\\"', '"', $argument);
	}

	/**
	 * Returns the closest parent element having a specific class attribute.
	 * 
	 * @param  NodeElement $el
	 * @param  String  $class
	 * @return Element|null
	 */
	protected function findParentByClass(NodeElement $el, $class) {
		$container = $el->getParent();
		while($container && $container->getTagName() != 'body') {
			if($container->isVisible() && in_array($class, explode(' ', $container->getAttribute('class')))) {
				return $container;
			}
			$container = $container->getParent();
		}

		return null;
	}
}