From 7a28fb146ff00e995c4476beb36e7adb354910c8 Mon Sep 17 00:00:00 2001
From: michal <michal@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 16 Jun 2004 11:01:15 +0000
Subject: [PATCH] Add extend testcase for #first, #last, #shift, #unshift,
 #pop, #push methods.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6467 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog               |  5 +++++
 test/ruby/test_array.rb | 28 ++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index f3fc580506..a3139aff22 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jun 16 19:57:24 2004  Michal Rokos  <michal@ruby-lang.org>
+
+	* test/ruby/test_array.rb: extend testcase to check #first, #last,
+	  #shift, #unshift, #pop, #push
+
 Wed Jun 16 16:05:17 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* array.c (ary_new): move alloc behind checks.  [ruby-core:02982]
diff --git a/test/ruby/test_array.rb b/test/ruby/test_array.rb
index 3e63dd2f54..79e658fa85 100644
--- a/test/ruby/test_array.rb
+++ b/test/ruby/test_array.rb
@@ -98,4 +98,32 @@ class TestArray < Test::Unit::TestCase
     x.concat(x)
     assert_equal([1,2,3,1,2,3], x)
   end
+
+  def test_beg_end
+    x = [1, 2, 3, 4, 5]
+    
+    assert_equal(1, x.first)
+    assert_equal([1], x.first(1))
+    assert_equal([1, 2, 3], x.first(3))
+    
+    assert_equal(5, x.last)
+    assert_equal([5], x.last(1))
+    assert_equal([3, 4, 5], x.last(3))
+    
+    assert_equal(1, x.shift)
+    assert_equal([2, 3, 4], x.shift(3))
+    assert_equal([5], x)
+    
+    assert_equal([2, 3, 4, 5], x.unshift(2, 3, 4))
+    assert_equal([1, 2, 3, 4, 5], x.unshift(1))
+    assert_equal([1, 2, 3, 4, 5], x)
+    
+    assert_equal(5, x.pop)
+    assert_equal([3, 4], x.pop(2))
+    assert_equal([1, 2], x)
+    
+    assert_equal([1, 2, 3, 4], x.push(3, 4))
+    assert_equal([1, 2, 3, 4, 5], x.push(5))
+    assert_equal([1, 2, 3, 4, 5], x)
+  end
 end