Fix TCategory implementation for TAffine

Closes #271.

src/geometry/transform.rs

@@ -100,9 +100,10 @@ impl TCategory for TAffine {
               D: DimName,
               S: Storage<N, D, D>,
               N::Epsilon: Copy {
-        mat.is_invertible()                   &&
+        let last = D::dim() - 1;
-        mat[(D::dim(), D::dim())] == N::one() &&
+        mat.is_invertible()           &&
-        (0 .. D::dim()).all(|i| mat[(D::dim(), i)].is_zero())
+        mat[(last, last)] == N::one() &&
+        (0 .. last).all(|i| mat[(last, i)].is_zero())
     }
 }
 
@@ -334,3 +335,15 @@ impl<N, D, S> TransformBase<N, D, S, TGeneral>
         self.matrix_mut_unchecked()
     }
 }
+
+#[cfg(test)]
+mod tests {
+    use super::*;
+    use ::core::Matrix4;
+
+    #[test]
+    fn checks_homogeneous_invariants_of_square_identity_matrix() {
+        assert!(TAffine::check_homogeneous_invariants(&Matrix4::<f32>::identity()));
+    }
+
+}