MonoRail/WatirTestCases/ARSupport/user.rb

   1 ## Copyright 2004-2007 Castle Project - http://www.castleproject.org/\r
   2 ## \r
   3 ## Licensed under the Apache License, Version 2.0 (the "License");\r
   4 ## you may not use this file except in compliance with the License.\r
   5 ## You may obtain a copy of the License at\r
   6 ## \r
   7 ##     http://www.apache.org/licenses/LICENSE-2.0\r
   8 ## \r
   9 ## Unless required by applicable law or agreed to in writing, software\r
  10 ## distributed under the License is distributed on an "AS IS" BASIS,\r
  11 ## WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\r
  12 ## See the License for the specific language governing permissions and\r
  13 ## limitations under the License.\r
  14 \r
  15 require '../common'\r
  16 \r
  17 class User\r
  18 \r
  19         class << self\r
  20 \r
  21                 include Test::Unit::Assertions\r
  22 \r
  23                 def create(ie, name)\r
  24 \r
  25                         ie.goto("#{$base_url}/user/new.castle")\r
  26 \r
  27                         ie.text_field(:id, "user_name").set(name)\r
  28                         \r
  29                         ie.button(:id, 'insertbutton').click\r
  30 \r
  31                         # Check for errors\r
  32                         \r
  33                         fail('There were databind errors') if ie.contains_text('binding error')\r
  34                         fail('Unexpected exception') if ie.contains_text('Exception')\r
  35                         \r
  36                         assert_equal(name, ie.span(:id, 'name').text, 'Insert: Name was not set')\r
  37 \r
  38                         # returns new created id\r
  39                         \r
  40                         ie.span(:id, 'newid').text\r
  41                         \r
  42                 end\r
  43                 \r
  44         end\r
  45 \r
  46 end\r