summaryrefslogtreecommitdiff
path: root/test/files/pos/t1164.scala
blob: 307ca92c85fa2e7cff9dbe791fec7c32fa115e6b (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
object test {  		

	class Foo[a](val arg : a) 

	object Foo  { 
	def apply [a](arg : a, right :a) = new Foo[a](arg) 
	def unapply [a](m : Foo[a]) = Some (m.arg) 
	} 
	
	def matchAndGetArgFromFoo[a]( e:Foo[a]):a = {e match { case Foo(x) => x }}
	
	
	//  Try the same thing as above but use function as argument to Bar
	// constructor
	
	type FunIntToA [a] = (Int) => a
	class Bar[a] (var f: FunIntToA[a]) 
	
	object Bar {
		def apply[a](f: FunIntToA[a]) = new Bar[a](f)
		def unapply[a](m: Bar[a]) = Some (m.f)
	}
	
	def matchAndGetFunFromBar[a](b:Bar[a]) : FunIntToA[a] = { b match { case Bar(x) => x}}
	 

}